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THERMAL  MODEL  OF  LASER- INDUCED  EYE  DAMAGE 


1.  INTRODUCTION 

This  is  the  final  report  of  the  contract  entitled  "Thermal- 
Model  of  Laser-Induced  Eye  Damage"  and  covers  the  work  performed 
by  IIT  Research  Institute  (IITRI)  from  October  1973  through  Sep- 
tember 1974.  The  principal  objective  of  the  program  was  to  select 
and  develop  mathematical  models  for  predicting  eye  damage  caused 
by  exposure  to  lasers.  The  laser  exposures  of  concern  involve 
various  wavelengths,  beam  geometries  and  intensities,  as  well  as 
pulse  lengths,  number  of  pulses,  and  repetition  rates.  Predic- 
tions of  eye  damage  involve  either  threshold  lesions  or  the  extent 
of  damage.  These  capabilities  were  achieved  by 

• Reviewing  the  literature  for  pertinent 

- thermal  and  optical  analytical  techniques 

- optical  and  thermal  property  data 

- experimental  temperature  and  damage  data 

• Developing  a model  (Retinal  model)  for  pre- 
dicting temperatures  and  damage  in  and  about 
the  retina 

• Developing  a model  (Corneal  model)  for  pre- 
dicting the  temperatures  and  damage  to  the 
cornea  and  lens 

• Checking  models  by  comparing  predictions 
against  experimental  data 

• Assessing  sensitivity  of  predictions  to  input 
variables 

• Evaluating  consequences  of  estimated  errors 
in  input  variables  on  total  laser  power  nec- 
essary to  cause  eye  damage 

These  models  allow  for  variations  in  laser  exposures  described 
in  terms  of 

• wavelength 

• pulse  duration 

• repetition  rate 

• number  of  pulses 
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• beam  profile 

o laser  power  on  the  cornea 

• beam  divergence 

Major  assumptions  used  to  develop  the  models  are: 

• simulation  of  eye  geometries 
by  polar  coordinates 

« use  of  retinal  image  at  all  depths 
of  the  eye  in  the  Retinal  model 

• all  reflected  radiation  considered 
to  move  along  axial  directions 

• use  of  rates  of  damage  pertaining 
to  skin  for  retinal,  corneal  and 
lens  damage 

• radiation  is  coherent  and  defocus 

can  be  calculated  via  geometric  optics 

A summary  of  the  model  capabilities  is  presented  below: 

Input 

1.  User  inputs  thermal,  optical,  and  physiological 
properties  of  desired  layers  for  human  or  monkey 

2.  User  specifies  beam  characteristics,  at  the  cornea 
(or  at  the  retina  if  desired):  total  power,  beam 
diameter,  divergence  (or  the  distance  from  the 
nearest  beam  waist) 

3.  User  specifies  the  range  of  spatial  coordinates 
for  damage  calculations,  printouts  of  temperature 
rise  histories  and/or  3D  plotting  of  temperature  rises 

Output 

1.  Damage  thresholds  at  specified  spatial  coordinates 

2.  Prediction  of  the  extent  of  damage  for  input  power 
as  a function  of  depth  and  radius 

3.  Prediction  of  temperature-rise  time  histories  as  a 
function  of  depth  and  radial  position 

4.  Prediction  of  thresholds  for  preselected  peak 
temperature  rises  in  the  pigment  granules 

5.  3D  or  2D  plots  of  temperature  rises 

6.  Retinal  image  distribution  calculated  by  optical 
routine 
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Innovations  Compared  co  Original  Tech.  Inc.  Model 

(Refs.  1,  52) 

1.  Damage  is  predicted  by  integrating  a damage  rate 
function  over  the  time  history  of  the  temperature 
rises  of  selected  points  to  determine  their  threshold 
levels  and  then  the  extent  of  damage 

2.  Possible  to  validate  model  predictions  with  thres- 
hold, extent  of  lesion  and  temperature  measurements 

3.  Automated  optimum  selection  of  temporal  and  spatial 
grid  elements,  their  extent  and  configuration  for 
input  physiological  and  beam  parameters,  to  include 
automated  handling  of  repetitive  pulse  exposures 

4.  Optical  routine  available  to  predict  retinal  or 
lenticular  beam  characteristics  based  on  beam  de- 
scriptor at  the  cornea  and  distance  of  the  last 
beam  waist 

5.  Blood  flow  in  chorio-capillary  and  surrounding 
tissue  incorporated  into  heat  flow  - temperature 
rise  calculations 

6.  Granular  structure  provided  in  pigment  epithelial 
layer  to  simulate  the  melanin  granule  absorption. 

The  same  structure  is  available  but  not  used  for 
the  cornea 

7.  Able  to  adjust  the  position  and  thickness  of  the 
melanin  granule  structures  within  the  PE  to  accom- 
modate simulation  of  both  human  and  monkey  retina 

8.  Simple  selection  of  spatial  coordinates  for  tem- 
perature rise  history  and  threshold  predictions 
output 

9.  Documented  collection  of  appropriate  thermal,  optical, 
and  physiological  parameter  values  necessary  to 
determine  damage  to  human  and  monkey  eyes . 

10.  Calculated  predictions  comparable  with  representative 
threshold  data  for  retina  and  cornea 

11.  Can  run  a number  of  test  exposures  at  once  where  pulse 
repetition  rate  and  numbers  of  pulses  (or  train  length) 
can  be  varied 

In  the  remainder  of  this  report  all  aspects  of  the  develop- 
ment of  computer  codes  for  the  thermal  models  are  discussed  and  a 
comparision  is  made  between  predictions  with  experimental  results 
Detailed  analytical  studies  and  information  are  included  in  appen 
dices  as  well  as  documentation  of  a code  developed  by  IITRI  for 
preparing  2D  and  3D  illustrations  of  the  temperature  rise  profile 
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Figure  1 illustrates  principal  components  of  the  eye.  Except 
for  the  pigment  epithelium  and  the  underlying  chorio-capillaris , 
all  components  have  relatively  substantial  thicknesses.  Periodi- 
cally within  this  report,  we  shall  refer  to  these  eye  media. 
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SCHEMATIC  ILLUSTRATION  OF  PRINCIPAL  COMPONENTS  OF  EYE 


2.  LITERATURE 


Before  formalizing  the  computer  codes,  the  literature  was 
searched  for  means  and  information  with  which  to  base  the  models. 
This  literature  search  pertained  to 

• Schemes  for  predicting  laser  deposition  of 
energy  within  eye 

• Schemes  for  predicting  the  transfer  of  heat 
within  the  eye  by  heat  conduction  or  the 
flow  of  blood 

• Thermal  and  optical  property  data  for  human 
and  animal  eyes 

• Experimental  laser-induced  temperature  and 
threshold  damage  data  with  which  to  check 
and  refine  predictions 

The  literature  study  involved  searching  for  recent  articles 
of  interest  and  using  the  resultant  lists  of  references  to  identify 
earlier  articles.  All  reference  titles  have  bean  placed  on  compu- 
ter cards  to  speed  revision  and  listing  of  articles  pertaining  to 
important  subject  areas.  The  result  is  the  list  of  references 
shown  in  Appendix  N,  arranged  according  to  the  following  subjects: 

• therma 1 mode  Is 

• optical  models 

• thermal  properties 

• optical  properties 

• blood  effects 

« threshold  damage  criteria 

• experimental  temperature  data 

• experimental  damage  data 

• melanin  granules 

• miscellaneous 

A very  significant  portion  of  the  models  is  based  on  informa- 
tion found  in  the  literature  as  well  as  that  provided  by  SAM/RAL  of 
Brooks  Air  Force  Base. 
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3.  OPTICAL  STUDIES 


Due  to  differences  in  the  absorption  constants  of  the  various 
media  of  the  eye  with  wavelength,  there  are  considerable  differences 
in  the  locations  at  which  the  lasers  deposit  their  energy  within 
the  eye.  Peak  depositions  may  occur  either  in  the  cornea,  lens  or 
retina.  For  this  reason,  two  models  were  developed  --  one  for 
retina  damage  (Retinal  model) , and  one  for  cornea  and  lens  damage 
(Corneal  model) . 

In  each  model,  the  optical  calculations  are  initiated  by  a 
determination  of  the  refraction  of  the  laser  beam  by  the  cornea. 

The  result  is  a description  of  the  irradiance  as  a function  of 
radius  and  depth  from  the  anterior  surface  of  the  cornea  to  the 
pupil  and  beyond.  The  resultant  irradiance  profile  is  then 
used  directly  by  the  Corneal  model  with  appropriate  provisions 
for  absorption  and  reflection  to  assess  the  rate  of  energy  depo- 
sition in  the  cornea,  aqueous  humor,  lens  and  vitreous  humor. 

On  the  other  hand  the  Retinal  model  utilizes  the  above  analy- 
sis to  assess  the  irradiance  profile  at  the  pupil  of  the  eye. 

This  profile  is  then  used  by  the  optical  analysis  described  in 
Section  3.2  to  determine  the  retinal  profile.  The  resultant  ir- 
radiance distribution  of  the  retinal  image  is  preserved  at  all 
depths  of  the  eye  and  tissues  analyzed  by  the  Retinal  model.  Each 
model  will  accept  any  symmetric  laser  profile  at  the  cornea.  This 
includes  uniform,  gaussian  or  irregular  profiles. 

In  the  Retinal  model,  the  user  has  two  options  for  the  irradi- 
ance profile  at  the  retina.  The  first  is  to  calculate  the  irradi- 
ance profile  using  parameters  describing  the  incident  laser  beam 
and  the  eye;  while  the  second  is  to  use  experimental  measurements 
of  the  profiles.  Similarly,  two  options  are  provided  in  the  Corneal 
model,  depending  on  whether  one  wishes  to  assess  cornea  or  lens 
damage.  In  order  to  ensure  accurate  burn  predictions,  each 
model  concentrates  the  finer  mesh  grid  in  the  region  of  the  eye  at 
which  the  greatest  temperatures  and  temperature  gradients  are  anti- 
cipated . 


In  the  remainder  of  this  section  we  shall  discuss  means  for 
calculating  irradiance  profiles  from  the  cornea  to  the  lens.  Then 
we  shall  discuss  imaging  the  laser  beam  onto  the  retina  accounting 
for  spherical  and  chromatic  aberrations. 

3.1  Irradiance  Profiles  Produced  by 
Refraction  of  Laser  Beam  by  Cornea 

Laser  beams  can  be  reduced  in  diameter  by  as  much  as  a factor 
of  1.2  in  traveling  from  the  cornea  to  the  lens  due  to  refraction 
by  the  cornea . This  can  cause  an  appreciable  increase  in  the  peak 
irradiance  incident  upon  the  lens  and  thereby  increase  the  possi- 
bility for  lens  burns.  Also,  if  the  beam  is  appreciably  reduced  in 
size  at  the  pupil,  significant  changes  can  occur  in  the  retinal 
ima  ge . 


The  first  step  in  analyzing  .the  effect  of  the  cornea  on  the 
beam  is  to  determine  the  imaginary  depth  at  which  the  beam  would 
be  focused  solely  by  cornea.  This  depth  exceeds  the  depth  of  the 
retina  as  illustrated  by  Fig.  2.  The  depth  zc  shown  in  this  figure 
is  given  by 


zf  = n-zo*fc/(n-zo-fc) 


(1) 


subject  to  the  condition  that  n*z0>fc,  where 
f = focal  length  of  cornea 
n - index  of  refraction  of  ocular  media 
zo  =»  distance  between  laser's  waist  and  pupil 

Here  zQ  may  be  approximated  by  dividing  the  beam  diameter  at  the 
cornea  by  the  total  beam  divergence  expressed  in  radians.  More 
accurate  determinations  of  z0  require  measurements  of  the  width 
of  the  bea.i  at  2 or  more  axial  locations.  The  above  condition  has 
been  found  to  hold  for  all  AFSC  experiments  to  date. 


To  determine  the  irradiance  profiles  between  the  'ornea  and 
lens,  we  shall  neglect  the  curvature  of  the  cornea  and  utilize 
linear  interpolation  based  on  the  triangle  formed  by  the  two  en- 
trance points  and  the  imaginary  focal  point.  Here  it  is  readily 
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NOMENCLATURE  FOR 


seen  that  incident  rays  at  a radial  distance  r are  displaced  to 
radial  distances  ^*r  upon  entering  the  eye  where  Pt  depends  on 
the  depth  z as  follows 

i = 1 - z/zf  (2) 

This  means  that  a laser  profile  of  P (r)  at  the  surface  of  the 
cornea  will  assume  a shape  P (r/£)  upon  entering  the  eye,  where 
£>0.  Moreover,  conservation  of  energy  for  the  case  of  no  absorp- 
tion requires  that  the  total  power  in  the  incident  beam  equals 
that  of  the  refracted  beam.  Thus,  if  the  refracted  beam  is  des- 
cribed by  C'  • P (r/ij),  then 


(r)  • 2*  it  • r 


dr 


C ' • / Pc (r/C ) • 2-ir- r dr 


C'  j Pc  ( r ' ) • 2 • ir  • r 1 dr' 


so  that  the  constant  C1  is  given  by 


(3) 


c = i/e2  (4> 

Based  on  the  above,  the  ir radiance  P(r,z)  at  points  r,z  is  given 
by 

P(r,z)  = Pc(r  tO/i2  (5) 


Thus  to  determine  the  profile  at  a depth  z,  one  first  evaluates 
z £ and  £ using  Eqs . 1 and  2,  and  then  substitutes  the  resulting 
value  for  f into  Eq . 5. 

3 . 2 Retinal  Image 

The  first  step  in  computing  the  distribution  of  the  irradiance 
Il(r)  at  the  retina  is  the  determination  of  the  profile  P (r)  at  the 
pupil  plane  given  by 

P (r)  - P (r/f,)/<-2  (6) 

P 

where 

= 1 - P c/zf 

pc=  distance  of  pupil  from  cornea  (see  Fig.  2) 


The  normalized  irradiance  at  the  retina  is  then  given  by  (Appendix 
| ra  2 

" J pt'  I • Jo(^47j^),Fi(p),F2(p)*p  dp  (7) 


where  0 

a m pupil  radius,  cm 

£'•*£.-  P 

fQ  » second  principal  focal  length  at  a 
reference  wavelength  of  A0 

Ft (p)  - function  accounting  for  defocusing  (chromatic 
1 r and  geometric) 

F2(p)  " function  accounting  for  spherical  aberration 
Jc  * zero  order  Bessel  function  of  first  kind 
p “ distance  of  pupil  from  second  principal  plane,  cm 
r •»  radial  distance  in  retinal  plane,  cm 
A * wavelength,  tan 

p “ radial  distance  in  pupil  plane,  cm 
In  Eq.  7 the  functions  F^(p)  and  F2(p)  are  given  by: 

F^(p)  - exp  (i’C0*p2)  0 

F2(p)  - exp  (i*C2*p4)  (- 

while  the  constants  C0  and  C2  are  given  by 


C — f * - Az*(l-cosa)  + (f*2  - £z2  sin2a)^] 


C2  - -3 *10® /A 
where 


a = angle  between  the  refracted  beam  at  the 
cornea  and  the  axis  of  the  eye 

n ” index  of  refraction  at  wavelength  A 

p ■ distance  of  pupil  from  second  principal  plane 

5 0 ■ distance  of  pupil  from  waist  of  laser  beam,  cm 


The  incretnental  distances  W and  Az , the  angle  a,  and  the  focal 
length  f are  illustrated  in  Fig.  3.  The  distance  W is  expressed 
by  Eq.  10  while  a,  Az  and  f may  be  obtained  from  the  following 
equations : 


f = f0-  n(n0-l)  /n0  (n-l'> 
tan  a - a/(f'  + /\z) 


A2  “ 


n*zo*(f/fo) 

n-(z0/fj  (f/fj 


fo 


(ID 

(12) 

(13) 


where 

f = focal  length  at  laser's  wavelength,  cm 

n - index  of  refraction  at  a reference  wave- 
length \0,  cm 


Constants  required  for  the  optical  analyses  are  presented 
in  Tables  1 and  7. 


3 . 3 Check  of  Optical  Analysis 

To  ensure  a comprehensive  check  of  the  optical  analysis, 
eight  experiments  were  chosen  representing  a wide  variety  of  con- 
ditions. Experimental  and  predicted  results  for  the  image  radius 
(l/e2  point)  are  given  in  Table  2. 
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SCHEMATIC  FOR  EVALUATING  W 


TABLE  1 

PHYSIOLOGICAL  PARAMETERS 

REQUIRED  FOR  OPTICAL  ANALYSES  (derived  from  Ref.  17) 


Pa  rame  te  r 

Values  of 
Human  Eye 

Parameters,  cm 

Monkey  Eye 

a 

0.35 

0.35 

fo  (at  A0  ~ 500  nm) 

2.24 

1.68 

P 

0.135 

0.12 

fc 

3.12 

2.43 

Pc 

0.31 

0.29 

TABLE  2 

COMPARISON  OF  PREDICTED  AND  EXPERIMENTAL 
RETINAL  IMAGE  RADII  FOR  GAUSSIAN  LASER  PROFILES 


Run 

Beam  Radius^at 

zo,cm 

I ,nm 

Image  Radius , at 
l/e^  points, cm 

Number x 

Lome  a ^ i/c 
points),  cm 

Exp . 

Calc . 

11 

0.135 

270. 

530.0 

. 0025 

.0013 

51 

0.075 

118. 

514.5 

.0025 

.0009 

52 

0 

00 

0 

600. 

514.5 

.0025 

.0009 

59 

0.144 

533. 

520.8 

.0025 

. 0009 

60 

0.124 

310. 

647.1 

.0025 

.0024 

61 

0.125 

12.8 

647.1 

.0140 

.0179 

64 

0.125 

7.50 

647.1 

.0225 

.0288 

66 

0.125 

3.17 

647 . 1 

.0525 

.0523 

*See  Table 

9 for  a description  of  experiments. 

From  a 

comparison  of  the  experimental  and  calculated 

image 

radii,  one 

can  see  that  all  five  predictions  of 

the  radii 

of  the 

smaller  experimental  images  arc  less  than  their  experimental  counter- 
parts of  25  pm.  The  source  of  this  discrepancy  is  not  known.  Very 
appreciable  changes  in  the  constant  C2  (which  could  be  in  error  by 
as  much  as  50  percent)  had  a negligible  effect  on  the  small  images . 
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4.  THERMAL  STUDIES 


In  this  section  we  shall  review  means  for  calculating  the. 
deposition  ana  transport  of  heat  starting  with  a knowledge  of  the 
laser's  profile  within  the  eye  which  has  been  covered  in  Section  3 
and  Appendix  H.  Each  model 

• selects  the  grid  network  for  predicting  the 
deposition  and  transport  of  heat  which  con- 
sists of  a network  of  points  located  at  vari- 
ous radii  and  depths, 

• computes  the  deposition  rates  of  energy  per 
unit  volume  at  each  of  the  grid  points , 

• computes  the  transport  of  heat  by  thermal 
conduction . 

In  addition  the  Retinal  model 


• computes  the  absorption  and  transport  of 
heat  by  blood  flow 

• computes  the  temperature  rises  of  melanin 
granules  in  the  pigment  epithelium  (PE) 


4. 1 Grid  System 


The  grid  system  chosen  for  performing  the  temperature  calcula- 
tion is  shown  in  Fig.  4.  Here  the  front  of  the  eye  is  located 
at  the  left-hand  side  of  the  network  while  the  axis  of  the  eye 
is  located  at  R(1)=0.  In  each  model,  the  fine  portions  of  the 
grid  are  located  at  regions  of  greatest  temperature  rise.  In  the 
Retinal  model  this  region  would  be  at  the  retina  while  in  the 
Corneal  model  the  region  would  either  be  in  the  cornea  or  lens 
depending  on  where  the  temperatures  are  greatest.  Within  the 
finer  grid,  each  of  the  spacial  steps  DR  and  DZ  are  uniform. 

Beyond  this  region  the  spacial  increments  are  sequentially  in- 
creased by  the  constant  factors  R^  and  R^  as  illustrated  below 


Z(i+1)-Z(i)  = Rl* (Z(i)-Z(i-l)) 


R 


(j+l)-R(j)  = R2- (R(j)-R(j-l)) 


(14) 


The  choice  of  a constantly  expanding  network  away  from  the 
region  of  highest  temperature  was  made  to  conserve  on  computational 
time.  In  addition  the  size  of  the  smallest  elements  was  varied 
according  to  the  magnitude  of  the  anticipated  temperature  gradients. 


1 r3 


Axial 


Figure  A GRID  SYSTEM  USED  BY  CORNEA 


In  this  regard  the  spacial  increments  are  increased  in  size  with 
the  pulse  duration.  Moreover,  in  the  Corneal  model  the  increments 
are  decreased  w'  th  increased  absorption  coefficients.  A detailed 
description  of  \.-,e  means  used  to  arrive  at  the  grid  system  is  given 
in  Appendix  I. 

4. 2 Energy  Deposition 

Having  established  che  shape  of  the  laser  beam  within  the  eye, 
the  next  problem  is  to  determine  where  the  laser's  energy  is  de- 
posited within  the  eve.  With  this  purpose  in  mind  six  different 
eye  media  are  provided  in  each  nu/del.  These  eye  media  are  distin- 
guished according  to: 

• thicknesses 

• absorption  coefficients 

• total  reflections  at  the  various  interfaces 

All  reflected  radiation  is  considered  to  move  in  axial  direc- 
tions. Multiple  reflections  are  considered  of  secondary  importance 
and  neglected.  Energy  deposition  is  computed  using  Lamberts  Law  at 
the  various  grid  points  described  in  the  previous  section.  The  de- 
position of  energy  is  considered  to  be  uniformly  dispersed  throughout 
each  spacial  increment.  A description  of  the  means  used  to  calculate 
the  rates  of  energy  deposition  is  presented  in  Appendix  F. 

4.3  Use  of  Implicit  Explicit  Alternating  Direction  Technique 

for  Predicting  Transient  Temperatures 

Temperature  predictions  for  single  pulses  are  made  using  the 
scheme  developed  by  Technology,  Inc.  (Refs.  1,52).  This  scheme  is 
based  on  the  work  of  Peaceman  (Ref.  2)  and  evaluates  the  consequence 
of  heat  conduction  using  finite-difference  solutions  of  parabolic 
equations.  This  is  accomplished  by  solving  the  finite-difference 
equation  explicitly  in  z (axial  direction)  and  implicitly  in  r 
(radial  direction)  for  odd  time  steps;  and  implicitly  in  z and 
explicitly  in  v for  even  time  steps.  The  implicit  representation 
of  the  thermal  gradients  involves  using  future  temperatures  while 
the  explicit  representation  of  the  thermal  gradients  involves  using 
existing  temperatures.  The  result  is  two  sets  of  equations  which 
are  solved  using  ordinary  matrix  algebra. 
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The  primary  advantage  of  this  method  is  that  the  time  steps 
may  be  one  or  more  orders  of  magnitude  larger  than  those  required 
by  standard  explicit  methods.  Solutions  are  stable  provided  the 
time  steps  are  not  excessively  large  during  periods  of  sudden 
changes  in  the  deposition  of  energy,  such  as  at  the  start  and  end 
of  a pulse.  To  ensure  accurate  temperature  predictions,  the  time 
steps  and  spacial  steps  must  be  chosen  consistent  with  the  thermal 
gradients  (See  Appendix  E) . This  finite-difference  technique  is 
used  to  predict  temperature  rises  at  specific  locations  of  the  eye 
during  and  following  a single  pulse. 

In  order  to  minimize  the  execution  times  of  the  computer  codes 
it  is  important  to  use  the  largest  time  intervals  possible  consist- 
ent with  accurate  temperature  predictions.  For  this  reason  an  anal 
ysis  was  conducted  to  establish  how  these  time  intervals  should  be 
chosen.  This  analysis  is  described  in  Appendix  E and  indicates 
that  progressively  larger  time  intervals  may  be  used  as  the  tempera 
ture  gradients  diminish  with  time.  As  shown  in  Appendix  E these 
time  intervals  may  be  increased  sequentially  by  a factor  XC,  as 
illustrated  below: 


Atk+i  = XC-Atk  (15) 

where  the  first  time  interval  At^  should  be  chosen  such  that  it 
is  of  the  order  of  the  times  required  by  purely  explicit  finite- 
difference  solutions  and  the  factor  XC  may  assume  values  from  1 

to  1.4  (See  Appendix  E) . 

The  above  technique  for  computing  the  time  intervals  guards 
against  excessively  large  errors  that  may  not  be  obvious  to  the 
user  in  that  the  alternating-direction,  implicit,  explicit  tech- 
nique is  usually  stable  even  for  excessively  large  time  steps. 

A major  limitation  of  using  constantly  expanding  time  steps 
occurs  when  one  considers  multiple  pulses.  Direct  application  of 
the  method  to  multiple  pulses  would  require  regular  time  steps 
during  each  pulse.  Use  of  regular  time  steps  throughout  the  expo- 
sure will  cause  enormous  computational  times  because  of  the  rel- 
atively large  times  between  pulses.  Thus,  the  finite-difference 
predictions  of  the  temperature  rise  are  confined  to  single  pulse 
exposures . 
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Instead,  a more  efficient  method  was  developed  for  comput- 
ing the  temperature  rises  from  multiple  pulses.  This  method  is 
described  in  Appendix  D and  involves  adding  the  temperature  con- 
tributions from  each  pulse  provided  by  the  finite- difference 
computations.  Here,  of  course,  it  is  necessary  to  account  for 
the  differences  in  elapsed  time.  To  illustrate  the  method  used 
for  multiple  pulses,  let  us  represent  the  temperature  rise  pre- 
diction from  a single  pulse  at  a particular  point  by  T(t) . Then 
the  temperature  rise  following  a second  pulse  is  given  by 

T(t)  + T(t--r)  (16) 

where  a represents  th<-  time  period  from  the  start  of  the  first 
pulse  to  the  start  of  the  second  pulse.  Temperature  rises  from 
the  various  pulses  can  be  added  because  all  the  terms  in  the  heat 
conduction  and  its  subsidiary  equations  are  linear  in  T (See 
Appendix  D) 

When  the  times  t.  are  less  than  the  interval  t,  the  second 
term  of  Eq . 16  is  zero  and  the  temperature  is  T(t).  For  excep- 
tionally large  time  intervals  t wherein  T(t)v0,  the  temperatures 
during  the  second  pulse  are  essentially  the  same  as  those  during 
the  first  pulse. 

4 . 4 Blood  Flow 

In  the  Retinal  model  account  is  also  made  for  the  transport 
of  heat  by  blood  flow.  Two  regions  of  blood  flow  are  considered. 
The  first  is  the  chorio-capillaris  layer  beneath  the  pigment  epi- 
thelium, while  the  second  is  the  blood  flow  through  tissues  sur- 
rounding the  eye . 

Blood  is  considered  to  enter  the  chorio-capillaris  layer 
through  major  blood  vessels  at  the  ambient  temperatures  of  the  eye 
Once  blood  enters  the  chorio-capillaris  it  is  diverted  into  numer- 
ous small  blood  vessels  of  various  sizes  and  paths.  Thereafter, 
thermal  equilibrium  is  considered  to  exist  between  the  blood  and 
tissues  through  which  it  flows.  The  immediate  effect  of  the  blood 
flow  is  to  abstract  sufficient  heat  to  raise  its  temperature  to 
that  of  the  spacial  increment  within  which  it  enters.  Additionally 


radial  blood,  flows  can  transport  heat  as  they  move  through  regions 
of  differing  temperatures.  The  resultant  radial  transport  of  heat 
depends  upon  the  flow  of  blood,  the  temperature  gradients  and  the 
specific  heat  of  blood.  Radial  flows  are  controlled  through 
values  assigned  the  artificial  blood  flows  entering  and  leaving  the 
chorio-capiilaris  at  various  radial  distances. 

Consideration  is  also  given  to  the  thermal  effects  of  blood 
flow  within  tissues  surrounding  the  eye.  In  this  case  the  blood 
is  assumed  to  enter  the  tissues  at  the  ambient  temperatures  of 
the  tissue  and  leave  at  the  temperature  of  the  tissue.  Here  the 
transport  of  heat  between  grid  elements  by  blood  flow  is  of  second- 
ary importance  and  therefore  is  neglected. 

4 . 5 Melanin  Granules 

To  estimate  the  temperatures  of  the  melanin  granules  within 
the  pigment  epithelium  (PE) , it  is  necessary  to  take  advantage  of 
the  fact  that  the  granules  lose  their  temperature  much  more  rapidly 
than  the  PE  grid  increments  within  which  they  lie.  This  allows  one 
to  treat  the  granules  separately  from  the  PE  grid  increments . To 
predict  the  granule  temperatures , calculations  are  made  describing 
how  an  increment's  heat  is  partioned  between  the  granules  and  its 
surroundings  with  respect  to  time. 

To  provide  such  determinations,  two  sets  of  calculations 
must  be  made.  The  first  is  to  subdivide  the  pulse  into  a number 
of  incremental  pulses  short  enough  so  that  essentially  no  heat 
is  transferred  from  the  granule  to  its  surroundings  during  the 
incremental  pulse.  For  this  purpose  we  have  chosen  a time  of 
0.3*10  sec  for  the  incremental  pulses.  If  no  further  heat  were 
deposited  into  the  granules,  then  their  normalized  temperature  rise 
would  decay  in  time  as  shown  in  Fig.  5.  After  a relatively 
short  time  of  about  5*10  ^ sec  there  would  be  essentially  no  dif~ 
ference  between  the  temperatures  of  the  granules  and  their  im- 
mediate surroundings. 

To  account  for  additional  heat  deposition  from  several  incre- 
mental pulses,  it  is  necessary  to  add  the  temperature  contributions 


20 


from  each  incremental  pulse  allowing  for  differences  of  elapsed 
time.  These  time-dependent  results  are  then  divided  by  the  number 
of  incremental  pulses  and  multiplied  by  the  temperature  rise  of 
the  spacial  increment  to  arrive  at  the  actual  temperature  rise  of 
the  granules . 

4. 6 Typical  Temperature  Rises 

To  acquaint  the  reader  with  the  magnitude  of  the  temperature 

rises  needed  to  thermally  damage  the  eye,  we  have  chosen  three 

widely  different  pulse  durations.  The  temperature  rises  at  the 

end  of  the  pulses  are  shown  in  Figs.  6 and  7.  Figure  6 shows  the 

temperature  profiles  in  the  axial  direction  at  the  end  of  pulses 
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of  duration  1.5-10  , 4.0-10  , and  1000  sec.  Figure  7 shows  the 

corresponding  temperature  profiles  in  the  radial  direaction. 


Figure  6 AXIAL  TEMPERATURE  PROFILES  AT  END  OF  SINGLE  PULSE 


Figure  7 RADIAL  TEMPERATURE  PROFILES  AT  FRONT  OF  PE 
AT  END  OF  SINGLE  PULSE 


5.  DAMAGE  CRITERIA 


There  are  at  least  two  modes  by  which  lasers  can  cause  eye 
damage.  These  are 

• thermal  damage  causing  protein  denaturation 

• mechanical  damage  caused  by  acoustic  and/or 
shock  waves 

_7 

Thermal  damage  is  produced  by  pulses  in  excess  of  roughly  10  to 
10"  sec  while  pressure  waves  may  be  a primary  cause  of  damage  by 
shorter  pulses.  Here  we  shall  briefly  review  each  damage  mechanism. 

5.1  Thermal  Damage 

Thermal  damage  is  an  accumulative  process  which  depends  both 
on  the  temperatures  and  their  duration  (Ref.  3).  Damage  commences 
at  a temperature  of  43  C.  To  compute  the  damage  ft , one  must  first 
convert  the  predicted  temperature  rises  VC(z,r,t)  at  the  points 
x into  absolute  temperature  VC(z,r,t)  in  degrees  Kelvin  and  use 
the  following  expression 

tt(z,r)  - 

time  time 


Afi(z,r,t)  » ^ C!  exp(-C2/VC(z,r,t))At  (17) 


For  skin,  the  constants  C 
■»64 , 


Z1  - 4.322 -10e4/sec  ^ 
3,  - 50,000°K  J 


C,  - S.38S-10104/see^ 


80,000°K 


) 


^ and  C2  are  as  follows  (Ref.  3) 

for  tissue  temperatures  (18) 

<(50  + 273)°K 


for  tissue  temperatures 
$?(50  + 273)  °K 


(19) 


Here  At  represents  the  time  interval  in  seconds  over  which  the 
damage  is  being  summed.  Once  the  accumulated  damage  ft(z,r)  achieves 
a value  of  1 the  tissue  is  irreversibly  damaged.  These  damage 

determinations  are  made  for  all  ocular  media  except  for  the  6ym 
thick  tear  layer  on  the  cornea. 
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Because  of  the  large  magnitude  of  and  the  small  magnitude 
of  the  exponentials,  it  is  most  efficient  to  use  logarithms  to 
evaluate  the  incremental  damage  Afi.  Thus 

Afi(z,r,t)  - exp  ( In  C ^-C^/VC  (z  , r , t )-4- In  At^)  (20) 

In  the  two  codes  the  values  for  In  C-^  and  are  stored  in  the 
array  DAMAGE. 

5 . 2 Mechanical  Damage 

With  the  shorter  pulses  appreciable  pressures  can  result  due 
to  the  lack  of  time  for  energy  losses  either  by  thermal  conduction, 
wave  propagation,  or  media  displacement. 

Studies  covering  the  genera tion  of  acoustic  waves  by  the  uni- 
form radiant  exposure  of  a semi-infinite  body  are  presented 
in  Ref.  4.  This  study  shows  that  pressure  of  the  order  of  a hun- 
dred psi  can  cause  damage.  Unfortunately,  much  has  to  be  learned 
regarding  the 

• generation  of  acoustic  waves  by  non-uniform 
heat  deposition, 

• shock  waves  caused  by  extremely  short  pulses,  and 

• criteria  of  mechanical  damage. 

Until  such  knowledge  is  available,  damage  predictions  can  only 

• 7 _8 

be  made  for  pulses  in  excess  of  roughly  10  to  10  sec  wherein 
the  damage  is  primarily  thermal  in  origin. 
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6.  OPTICAL,  THERMAL,  AND  LESION  DATA 


In  this  section  we  shall  present  input  data  required  by  the 
codes , and  summarize  experimental  data  acquired  from  corneal  and 
retinal  burns  of  the  rhesus  monkey. 

6.1  Optical  Properties  Associated  with  the  Eyes  of  Man 

and  the  Rhesus  Monkey 

Amongst  the  more  important  data  needed  to  predict  damage  to 
the  eye  by  laser  exposures  are  the  optical  properties  of  the  vari- 
ous eye  media.  Optical  data  for*  man  and  the  rhesus  monkey  are 
presented  in  Appendix  G. 

In  this  section,  we  shall  discuss  the  optical  data  and  pre- 
sent our  best  estimates  of  the  absorptance,  reflectance  and  trans- 
mission data  for  use  in  the  models.  Before  presenting  these  data, 
it  should  be  emphasized  that  the  published  data  are  incomplete  and 
a number  of  inconsistencies  have  been  found  in  examining  the  data. 
The  reasons  fox*  the  discrepancies  are  apparently  due  to 

• differences  in  experimental  technique 

• differences  in  terminology 

• specimen  variations 

• limited  number  of  experiments 

6.1.1  Absorption  and  Reflection  Coefficients 

Optical  data,  derived  primarily  from  the  work  of  Coogatx 
(Ref.  5),  Boettner  (Refs.  6,10),  Geeraets  (Refs.  7,8,9,11),  and 
Smith  (Ref.  42)  are  presented  for  the  rhesus  monkey,  Caucasian, 
and  negro  in  Tables  3 through  5 respectively  at  several  selected 
wavelengths . 

For  the  Corneal  model  one  should  use  the  values  of  the  absorp- 
tion coefficients  for  water  shown  in  Table  6.  These  values  were 
derived  from  ti*ansmission  measurements  of  Hale  (Ref.  12). 
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Table  3 

SUMMARY  OF  OPTICAL  DATA  FOR  RETINAL  MODEL  (RHESUS  MONKEY) 
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Table  4 

SUMMARY  OF  OPTICAL  DATA  FOR  RETINAL  MODEL  (CAUCASIAN) 
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Values  derived  from  Appendix  G, 
computer  symbols  presented  in  parentheses 
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Table  6 


I 

S ABSORPTION  CONSTANTS  OF  WATER  (Ref.  12) 


1 (tim) a(cm  ) 

0.200 
0.225 
0.250 
0.275 
0.300 
0.325 
0.350 
0.375 
0.400 
0.425 
0.450 
0.475 
0.500 
0.525 
0.550 
0.575 
0.600 
0.625 
0.650 
0.675 
0.700 
0.725 
0.750 
0.775 
0.800 
0.825 
0.850 
0.875 


Mum)  ct(cm  ) 


0.900 

6.7858 -10~2 

0.925 

1.4400  -Kf1 

0.9-0 

3.8757  *10_1 

0.975 

4.4852  -10'1 

1.000 

3.6317  -lO-1 

1.200 

1.0357 

1.400 

1.2387  -10+1 

1.600 

, 6; Z152 

1.800 

8.0285 

2.000 

6.9115 -10+1 

2.200 

1.6508 -10+1 

2 .400 

5.0056 -10+1 

2.600 

1.5321 *10+2 

2.650 

3.1772  -102 

2.700 

8.8430  -102 

2. 750 

2.6961  -103 

2.800 

5.1612  -103 

2.850 

8.1571  -103 

2.900 

1.1613  -104 

2.950 

1.2694  -104 

3.000 

1.1394  -104 

3.050 

9.8883  -103 

3.100 

7.7830  -103 

3.150 

5.3856  -103 

3 .200 

3.6285  -103 

3.250 

2.3586  -103 

3.300 

1.4013  -I03 

3.350 

9 .7905  -102 

Mum)  g(cm  ) 

3.400  7.2072 -102 

3.450  4.8080 -102 

3.500  3,3750  -102 

3.600  1.7977 -102 

3.700  1.2227  -102 

3.800  1.1244  -102 

3.900  1.2244 -102 

4.000  1.4451 -102 

4.100  1.7225 -102 

4.200  2.0585 -102 

4.300  2.4694-102 

4.400  2.9417 -102 

4.500  3 .7420  -102 

4.600  4.0158 -102 

4.700  4.1977 -102 

4.800  3.9  270 -102 

4.900  3.5135  -102 

5.000  3.1165  -102 

5.100  2.7350 -102 

5.200  2.4408 -102 

5.300  2.3236 -102 

5.400  2.3969 -102 

5.500  2.6504 -102 

5.600  3.1865  -102 

5.700  4.4754 -102 

5.800  7.1498 -102 

5.900  1.3248 -103 

6.000  2.2410 -103 


6.9115  -10-2 
2.7367  -10"2 
1.6839  -10"2 
1.0739  -10"2 
6.7021  -10'3 
4.1759  -10"3 
2.3338 -10“3 
1.1729  -10’3 
5.8434 -10"4 
3.8438  -10-4 
2.8484 ‘10-4 
2.4736  -10'4 
2.5133  -10~4 
3.1595  -10"4 
4.4782  -10“4 
7.8676  -10"4 
2.2829  -10-3 
2.7948- 10~3 
3.1706  -10"3 
4.1516  -10"3 
6.0139  -10"3 
1.5860  -10"2 
2.6138  -10-2 
2.3998  -10"2 
1.9635  -10”2 
2.7722  -10"2 
4.3317 -10“2 
5.6154  -10"2 


Tabic  6 


ABSORPTION  CONSTANTS  OF  WATER  (Concl) 


2.6987  -10J 
1.7836  -103 
1.1370- 103 
8,8161  -102 
7.5785  -102 
6.7782 -102 
6.3207  -102 
6.0430  -102 
5.8643 -102 
5.7446 -102 
5.6637 -102 
5-6025 -102 
5.5430-102 
5.5020 -102 
5.4622 -102 
5.4234 -102 
5.4019  -102 
5.3971  -102 
5.3924  -102 
5.3878  -102 
5.3790  -102 
5.4006  -102 
5.4357  -102 
5.4978  -102 
5.5711  -102 
5.6685  -102 
5.7886  -102 
5.9429  102 


9 .800 
10.000 

10.500 
11.000 

11.500 
12.000 

12.500 

13 .000 
13  .500 

14.000 

14.500 

15.000 

15.500 

16.000 

16.500 
17.000 

17.500 
18.000 
18.500 
19 .000 
19  .500 
20.000 
21.000 
22.000 

23.000 

24.000 
25.000 
26.000 


6.1421-KT 
6.3837  -102 
7.9228  -102 
1.105. 8 -103 
1.55  i.7  -103 
2.0839 -103 

2.6035  -IQ3 
2.9483  -103 
3.1928  -103 
3 .3211  -103 
3.3626  -103 
3.3678  -103 
3.3564  -103 
3.3144 -103 
3.2596  -103 
3.1712 -103 
3.0806  -103 
2.9740  -103 
2.8597  -103 
2.7382  -103 

2.6035  -103 
2.4693  -103 
2.2859  -103 
2.1306  -103 
2.0052  -103 
1.8902  -103 
1.7895  -103 
1.6916  -103 


27.000 

28.000 

29.000 

30.000 

32.000 

34.000 
36.000 

38.000 

40.000 

42.000 

44.000 

46.000 

48.000 

50.000 
60.000 

70.000 

80.000 
90.000 

100.000 
110.000 
120.000 
13  0.000 
140.000 

150.000 

160.000 
180.000 
19  0.000 
200.000 


1.6011  -10J 
1.5169  -103 
1.4430 -103 
1.3739  -103 
1.2724  -103 
1.2160  103 
1.1973 -103 
L , 1938  -103 
1.2095  -103 
1.2237  -103 
1.2452  -103 
1.2621  -103 
1.2776  -103 
1.2918 -103 
1.2294 -103 
1.0340 -103 
8.5923 -102 
7.4840 -102 
6.6853 -102 
6.0661 -102 
5.5083 -102 
4.9686 -102 
4.4880 -102 
4.1469 -102 
3.8956  -102 
3.4837 -102 
3.3136 -102 
3.1667  -102 


6.1.2  Index  of  Refraction 

For  computing  the  laser  profiles,  the  indexes  of  refraction 
are  taken  equivalent  to  those  of  water  as  shown  below.  The  index 
of  refraction  for  water  for  wavelengths  greater  than  1 . 4pm  can  be 
obtained  from  Ref.  12. 


Table  7 


INDEX  OF  REFRACTION  VERSUS 
WAVELENGTH  FOR  WATER 
(Refs.  48  and  49) 


Wavelength,  ran 

Index  of 
Refraction 

Wavelength,  ran 

Index  of 
Refraction 

350 

1.357 

900 

1.328 

400 

1.346 

950 

1.327 

450 

1.341 

1000 

1.326 

500 

1.336 

1050 

1.325 

550 

1.334 

1100 

1.324 

600 

1.332 

1150 

1.3235 

65  0 

1.331 

1200 

1.323 

700 

1.330 

1250 

1.322 

750 

1.329 

1300 

1.321 

800 

1.328 

1350 

1.320 

85  0 

1.327 

1400 

1.320 

The  only  exceptions 

are  for  wavelengths  330,  400, 

and  450  nm 

where  the  index  of 

refraction  is 

taken  as  1.357, 

1.346,  and  1.34 

respectively  (see  Appendix  H) . 


6 . 2 Thermal  Property  Data 

Property  data  associated  with  the  conduction  and  storage  of 
heat  are  taken  as: 

Density  = 1.0  gm/cnT1 

Specific  Heat  = 1.0  cal/gm-°C 

Thermal  Conductivity  = 0.0012  cal/cro-sec-°C 

The  above  value  of  thermal  conductivity  was  estimated  based  on 
values  associated  with  organic  media  such  as  (Ref.  13) 

Dermis  .00088  ca l/cm-sec-°C 

Blood  .0012  ii 

Egg  white  .0013  n 

Beef  vitreous  humor  .0014  n 

Beef  aqueous  humor  .0014  n 


■? 


i 

f 

i 

$ 

si 


Different  values  of  blood  flow  were  used  for  the  chorio- 
capillaris,  and  for  tissues  surrounding  the  eye.  Total  blood 
flow  to  the  chorio-capillaris  was  taken  as  0.024  ml/sec  (Ref.  14) 
and  was  distributed  uniformly  throughout  the  chorio-capillaris. 
The  result  is  a flow  of  0.016  gm/sec.  per  unit  radial  area  of  the 
chorio-capillaris.  Blood  flow  to  tissues  surrounding  the  eye  was 
assumed  as  0.001  gm /cm  -sec.  In  both  cases,  the  specific  heat 
of  blood  was  taken  0.92  cal/gm-°C  Ref  (19). 


6 . 3 Thicknesses  of  Eye  Media 

Thicknesses  of  various  eye  media  for  rhesus  monkeys  and  humans 
are  presented  in  Table  8. 

Table  8 

THICKNESSES  OF  EYE  MEDIA* 


*Refs.  5,  16,  17,  and  18 
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6 . A Experimental  Ocular  Threshold  Damage 

To  ensure  a comprehensive  check  of  the  two  models,  experi- 
mental data  were  acquired  by  Brooks  Air  Force  Base.  These  data 
are  associated  with  retinal  and  corneal  damage  and  are  presented 
in  Tables  9 and  10,  i*espectively . Later,  in  Section  8 we  shall 
use  selected  experiments  to  verify  the  two  models. 
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Table  9 

EXPERIMENTAL  DATA  FOR  RETINAL  DAMAGE  IN  RHESUS  MONKEY  EYES  (concl) 
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EilPERIMENTAL  DATA  FOR  CORNEAL  DAMAGE  IN  RHESUS  MONKEY 


Reference  numbers  given  in  parentheses 
Lesion  was  estimated 


7.  COMPUTER  CODES 

Iii  this  section  we  shall  describe  the  ReLinal  and  Corneal 
models  used  to  predict  thermal  damage,  to  the  retina,  cornea  and 
lens.  Listings,  nomenclature,  and  sample  data  for  the  two  codes 
are  presented  in  Appendices  K and  L.  Basic  analytical  studies 
used  to  develop  the  codes  are  presented  in  Appendices  A,  B,  C, 

D,  E,  F,  H,  and  I.  In  this  section  we  shall  describe  the  two 
codes  with  particular  emphasis  being  given  to  the  users  needs. 
First,  we  shall  cover  the  major  aspects  of  the  codes,  and  then 
examine  each  code  in  detail. 

Each  code  starts  with  a description  of  the  laser  exposure 
as  presented  below 

• wavelength 

e total  power  in  the  laser  beam  on  the  cornea 

• shape  of  laser  beam  profile 

• distance  of  laser's  waist  from  pupil 

• pulse  duration 

• number  of  pulses 

• repetition  rate 

Then  these  input  data  are  used  to  establish  how  the  laser's  beam 
is  refracted  into  the  eve  (See  Section  3 ).  Next,  the  resultant 
laser  profile  and  power  are  used  in  conjunction  with  the  thick- 
nesses and  absorption  coeflicients  of  the  various  eye  media,’ to 
determine  the  deposition  of  energy  into  the  eye  (See  Appendix  F) 
at  select  points  in  the  grid  system  indicated  by  Fig.  4.  Here  we 
have  chosen  polar  coordinates  in  r and  z (See  Appendix  A)  to 
identify  the  various  locations  of  the  eye. 

To  calculate  the  transient  temperatures  within  the  eye  result- 
ing from  a single  laser  pulse,  we  have  used  a finite-difference 
method  formulated  by  Tech.  Inc.  (Refs.  1,52)  using  the  work  of 
Peaceman  (Ref.  2).  This  method  represents  an  alternating  explicit 
implicit  technique  for  computing  the  temperature  rises  that  allows 
use  of  constantly  expanding  time  steps. 
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Temperature  predictions  for  multiple  pulses  (See  Appendix  D) 
arc  made  using  the  resultant  temperature  predictions  for  a single 
pulse.  Total  damage  is  predicted  by  integrating  the  rates  of  dam- 
age over  the  times  at  which  the  rates  of  damage  are  significant. 

Based  on  the  damage  criterion  of  Ref.  3,  the  codes  compute 
the  total  laser  powers  required  to  damage  each  of  the  specified 
locations  within  the  eye.  After  the  threshold  powers  are  found 
for  the  specified  points,  the  codes  predict  the  region  damaged  by 
the  particular  laser  power  specified  by  the  user.  The  damaged 
region  is  found  by  interpolating  the  radial  extent  of  damage  at 
various  depths , as  well  as  the  axial  extent  of  damage  along  the 
axis  of  the  eye. 

Having  briefly  reviewed  the  principal  features  of  the  two 
models,  let  us  now  examine  ^ach  code  in  detail. 

7 . 1 Retinal  Model 

The  Retinal  model  consists  of  a main  program  plus  five  sub- 
routines. Principal  features  of  the  code  are  illustrated  in  Fig. 
8.  Here  we  shall  describe  each  part  of  the  Retinal  model  using 
the  listing  presented  in  Appendix  K.  Throughout  this  discussion 
we  shall  refer  to  the  sequence  numbers  at  the  left-hand  side  of 
the  listing.  Included  in  Appendix  K is  a description  of  the  vari- 
ables, sample  data,  and  output  results. 

All  input  data  required  by  the  code  are  read  in  the  main  pro- 
gram and  subroutine  IMAGE.  The  order  in  which  the  data  are  read 
in  is  indicated  by  the  numbers  at  the  right-hand  side  of  the  list- 
ing. Read  statements  with  asterisks  are  executed  only  for  irregu- 
lar laser  profiles. 

7.1.1  Main  Program  for  Retinal  Model 

Figure  9 illustrates  key  portions  of  the  Main  Program. 

Numbers  in  the  boxes  refer  to  the  sequence  numbers  of  the  listing. 
The  symbols  i,  j , k refer  to  the  grid  positions  Z(i),  R(j)  and 
times  XT(k),  respectively. 
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Retinal  Main:  Sequence  Numbers  1-52 

Sequence  numbers  25  through  27  define  the  number  Ml  of  uni- 
form grid  increments,  and  the  tot'll  number  N3  of  grid  points  in 
the  radial  grid.  Here  Nl  must  ! ss  than  N3 . The  size  of  the 
smallest  radial  grid  increments  Dv  is  established  at  sequence 
numbers  30  and  31.  For  gaussian  or  irregular  laser  profiles,  DR. 
is  found  by  subdividing  the  lesion  radius  LESION  into  an  integer 
number  LIM  of  increments.  For  uniform  profiles,  DR  is  found  by 
subdividing  the  profile  radius  RIM  into  (LIM-.5)  increments.  At 
present,  all  values  of  DR  should  be  larger  than  about  0.0003  cm 
to  avoid  temperature  instability.  To  use  smaller  DR  values,  the 
size  of  the  initial  time  steps  DT  must  be  decreased  and  the  dimen- 
sion KT  increased  in  the  appropriate  arrays  (see  Appendix  K') . 

If  one  wishes  to  reduce  DR  by  a factor  (,  then  DT  should  be  de- 

2 

creased  by  the  factor  £,  . 

At  sequence  numbers  37  and  38,  the  index  LPX  is  set  equal  to 
0 or  1 according  to  whether  the  laser  exposure  involves  single  or 
multiple  pulses,  respectively.  This  index  is  used  to  control  the 
course  of  the  computations.  At  sequence  numbers  42  and  43,  the 
laser  power  and  pulse  duration  are  altered  when  the  pulse  duration 

O 

is  less  than  0.3'10  sec.  In  these  alterations,  the  total  energy 
is  preserved.  These  changes  save  on  computational  time  and  re- 
flect the  fact  that  the  conduction  of  heat  is  insignificant  during 

- 8 

times  less  than  0.3 ’10  sec. 

Retinal  Main:  Sequence  Numbers  54-63 

At  sequence  numbers  54  through  63,  the  time  step  DT  and  the 
total  Lime  TIME  are  computed  using  the  arrays  XCT,  NTT,  and  KTT . 
Specific  values  for  XC,  NP  and  KT  are  selected  from  these  arrays 
as  a function  of  the  pulse  duration  DPULSE.  The  array  XCT  presents 
values  for  the  expansion  factor  XC  by  which  successive  time  steps 
are  increased;  NPT  the  number  of  time  steps  NP  contained  within 
DPULSE;  and  KTT  the  total  number  of  time  steps  KT . The  values 
assigned  these  arrays  are  given  in  the  ample  data  cards  18,  17 
and  19  presented  in  Appendix  K.  The  result  of  these  computations 
is  time  steps  DT  , XC  • DT  , XC2  • DT  , . . . XC  <'KT'1')  ■ DT , where  the  total 
time  TIME  is  given  by 
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TIME 


(XC)n*DT  = DT- 


- XT(KT) 


(21) 


KT-1 


■I 

n-0 


XCRT-1 

“xc-1 


The  elapsed  time  from  the  start  of  a pulse  to  the  K-th  time  step 
is  represented  by  XT(K+1).  Here  XT(1)=0.  At  the  end  of  a pulse 
of  duration  DPULSE, 


XT (KM)  = DPULSE  (22) 

Retinal  Main:  Sequence  Numbers  66-77 

At  sequence  numbers  66  through  77,  the  code  computes  TIME, 

DT,  KT  and  KM  for  multiple-pulsed  exposures.  Here  the  expansion 
factor  XC  is  set  equal  to  the  relatively  large  value  of  1.4  so  that 
the  total  time  TIME  brackets  all  the  pulses  without  resorting  to 
large  numbers  of  time  steps.  The  total  time  TIME  is  determined 
by  first  evaluating  the  train  length,  and  then  multiplying  the 
result  by  the  value  selected  from  the  array  FTIME.  To  provide 
maximum  flexibility  the  array  FTIME  is  described  by  input  data 
as  a function  of  pulse  duration.  Elements  of  FTIME  should  always 
be  greater  than  1. 


If  the  temperature  rises  from  a pulse  do  not  approach  zero 
in  the  allotted  time,  then  one  should  increase  the  particular 
element  of  the  array  FTIME  corresponding  to  DPULSE. 

To  integrate  damage  over  each  pulse,  DPULSE  is  subdivided 
into  NP  uniform  time  steps  of  magnitude  PTIME  (See  Appendix  D) . 

For  more  refined  damage  calculations,  one  can  increase  the  number 
of  intervals  bearing  in  mind  that  it  will  require  increases  in  the 
dimensions  of  arrays  with  arguments  KT  and  KX  (See  Appendix  K) . 
Here  KX  equals  the  total  number  of  time  intervals  used  to  evaluate 
damage  from  pulse  to  pulse  and  presently  equals  NP+3  (see  sequence 
number  331) . 


Retina],  Main:  Sequence  Numbers  82-89 

At  sequence  numbers  82  through  89,  the  indices  for  grid  points 
along  the  Z axis,  i,  are  chosen  along  with  the  size  of  the  smallest 
increment  DZ  along  the  z axis.  To  conserve  on  computational  time, 
DZ  is  increased  with  the  pulse  duration  DPULSE. 
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At  sequence  number  87 , the  first  grid  point  in  the  pigment 
epithelium  designated  by  IPE  is  located  at  the  second  uniform  grid 
point  shown  in  Fig.  4.  Also,  the  first  grid  point  in  the  cornea 
designated  by  IPA  is  located  at  the  second  grid  point. 

Retinal  Main:  Sequence  Numbers  91-100 

From  sequence  numbers  91  through  98,  the  distances  ZD  of  the 
various  interfaces  from  the  cornea  are  computed  using  the  assigned 
thicknesses  for  the  various  media.  Here  ZD (8)  is  set  equal  to  an 
exceptionally  large  value  to  ensure  it  contains  Z(M3) , the  last 
grid  point  on  the  Z axis . 

At  sequence  number  99,  subroutine  GRID  is  called  to  compute 

• the  locations  of  all  grid  points  Z(i),  R(j), 

• the  indices  for  the  various  eye  media,  and 

• other  spacially-dependent  thermal  properties. 

A discussion  of  this  subroutine  is  given  in  Section  7.1.2. 

At  sequence  number  100,  the  number  of  gn’d  points  NVL  in  the 
chorio-cap  illaris  for  any  specified  value  of  J is  calculated  using 
the  first  grid  point  IPV  and  last  point  LPV  in  the  layer. 

Retinal  Main:  Sequence  Numbers  102-106 

Here  the  i,j  indices,  at  which  temperature  print  outs  are 
desired,  are  computed.  These  points  are  chosen  according  to  the 
values  assigned  IDl,  ID2 , JDl  and  JD2  on  data  card  no.  11. 

Retinal  Main:  Sequence  Numbers  113-114 

Here  the  i indices  associated  with  points  in  the  vascular 
layer  are  computed  and  stored  in  the  array  IBIDOD. 

Retinal  Main:  Sequence  Numbers  116-121 

In  this  section  the  normalized  irradiance  profile  HR  is  set 
to  zero  and  subroutine  IMAGE  called  to  evaluate  HR  at  the  retina. 
In  this  regard,  two  options  are  available  to  the  user.  Either 
one  can  input  the  retinal  image  directly  by  setting  IFIL-0,  or 
compute  the  image  as  described  in  Section  3 and  Appendix  U by  set- 
ting IFIL-1. 
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When  IFIL  equals  zero,  the  program  sets  the  image  equal  to 
the  profile  described  by  input  data  on  cards  4 and  6 of  the  main 
program  (for  gaussian  and  uniform  profiles),  or  cards  19A*,  19A** 
and  19A***  of  subroutine  IMAGE  (for  irregular  profiles).  Other- 
wise these  profiles  are  considered  to  be  at  the  cornea  and  the 
retinal  images  are  calculated  in  subroutine  IMAGE. 

Retinal  Main:  Sequence  Numbers  131-139 

Here  the  blood  flows  entering  (IFLOWI)  and  leaving  (XFLOWO) 
the  chorio-capillaris  are  specified  at  various  radial  distances 
DFLOW.  These  blood  flows  are  all  on  a unit  area  basis  and  are 
distributed  uniformly  over  a circular  area  of  radius  RVL  such 
that  the  total  flow  equals  CFLOW.  Presently  the  incoming  and 
exiting  flows  are  set  equal.  This  means  that  there  is  no  net 
radial  flow.  However,  the  code  is  structured  so  that  one  can 
easily  vary  the  incoming  and  exiting  flows  with  radius  as  more 
detailed  information  is  acquired. 

Retinal  Main:  Sequence  Numbers  144-146 

In  this  section  the  initial  temperature  rises  are  set  to  an 

insignificantly  nonzero  value  (10“^)  , to  prevent  underflow.  Computer 

installations  without  library  routines  to  handle  underflow  will 
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not  tolerate  temperature  rises  of  the  order  of  l.’lO  that  are 
other  than  zero. 

Retinal  Main:  Sequence  Numbers  172-257 

This  part  of  the  code  assesses  temperature  rises  caused  by 
a single  pulse  as  described  by  Appendix  A.  Here  heat  is  deposited 
at  a rate  of  S(i,j)  per  unit  volume  at  each  point  Z(i),R(j)  during, 
the  pulse,  i.e.  at  times  of  XT(1),  XT(?) . . .XT (KM) . After  the 
pulse,  S(i,j)  is  set  equal  to  zero  by  suoroutine  HTXDEP. 

Two  provisions  are  left  to  the  discretion  of  the  user.  The 
first  is  that  one  can  subdivide  the  time  inte  vals  used  to  compute 
the  temperature  rises  without  changing  the  time  steps  XT(K)  -XT(K-l). 
This  involves  changing  the  integer  IKX  which  provides  for  2*IKX 
time  intervals  of  size  (XT(K)-XT(K-l)  1(1  *XKX) . For  this  purpose, 

IKX  may  be  altered  by  adjusting  t:he  values  of  EDTl  and  EDT2  assigned 


as  input  data  on  card  no.  12.  This  provision  is  included  so  that 
one  can  improve  accuracy  or  eliminate  instability  without  having 
to  increase  the  number  of  time  steps  K.T.  Except  for  long  pulse 
times,  a value  of  1 for  IKX  is  usually  adequate.  To  reflect  the 
fact  that  IKX  should  be  greater  than  1 for  pulse  widths  of  the 
order  of  1000  sec  or  more,  DPULSE  has  been  included  in  the  evalu- 
ation of  IKX. 

The  second  option  is  the  times  at  which  temperature  print- 
outs are  desired.  This  option  is  provided  by  the  value  assigned 
ITYPE  in  the  input  data.  If  one  wishes  print  outs  at  each  time 
XT,  then  one  merely  sets  ITYPE  =1.  If  one  wishes  printouts  at 
every  n-th  XT  , then  ITYPE  should  be  set  equal  to  n„  Print  outs 
will  always  be  provided  at  the  conclusion  of  the  pulse  as  well  as 
at  the  last  time  XT(KT). 

Retinal  Main:  Sequence  Numbers  263-268 

Here  we  complete  the  evaluation  of  the  array  XPD(K)  describ- 
ing the  ratio  of  the  average  temperature  of  the  granules  to  the 
average  temperature  of  the  region  of  the  pigment  epithelium  in 
which  they  lie.  The  values  for  XPD(K)  are  given  at  times  of  XT(K) 
and  approach  1 after  the  conclusion  of  a pulse.  This  reflects  the 
fact  that  the  excess  heat  in  the  granules  is  dissipated  to  its  immedi- 
ate surroundings  following  a pulse. 

Retinal  Main:  Sequence  Numbers  275-294 

Here  we  select  the  points  ID  (L) , JD(L)  at  which  damage  cal- 
culations are  to  be  made.  Two  input  parameters  are  required  to 
specify  the  points.  The  first  is  the  radial  distance  RMAX  over 
which  damage  assessments  are  desired.  Here  the  code  assesses 
damage  for  all  grid  points  starting  at  R(l)  and  ending  at  the 
first  point  beyond  RMAX,  namely  R(JM). 

The  second  control  one  has  in  selecting  the  points  is  in 
the  value  assigned  LIMAX . Knowing  this  variable,  the  code  estab- 
lishes the  depth  Z(IMAX)  of  greatest  temperature  rise,  and  then 
assess  the  damage  from  Z (IMAX-LIMAX)  to  Z (1MAX+LIMAX)  . Thus  when 
UMAX  is  set  equal  to  zero,  damage  is  only  evaluated  at  the.  deptn 
of  highest  temperature. 
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The  number  of  points  at  which  damage  is  to  be  evaluated  is 
given  by  L1J.  If  LIJ  is  larger  than  the  allotted  dimension  for 
the  arrays  associated  with  LIJ  then  the  computations  will  stop. 
Moreover,  care  should  be  exercised  not  to  designate  more  points 
than  needed  --  first,  because  points  remote  from  the  region  of 
greatest  temperature  require  considerable  time  to  heat  and  cool, 
and  secondly  because  of  the  appreciable  increase  of  storage  required 
when  LIJ  is  increased. 

Retinal  Main:  Sequence  Numbers  299-403 

In  this  section  the  temperature  rises  caused  by  multiple 
pulses  are  computed  using  the  temperature  predictions  for  a single 
pulse.  Also,  the  array  ZTI  is  evaluated  for  subsequent  computa- 
tions of  the  damage. 

First,  the  temperature  rises  at  the  points,  at  which  damage 
calculations  are  desired,  are  stored  in  the  array  Vli(L,K,n).  In 
the  array  VE  the  point  is  at  ID(L),  JD(L),  the  time  is  XT(K),  and 
n=l  when  VE  represents  the  temperature  rise  of  the  region  around 
the  point  while  n«2  when  VE  represents  the  average  temperature  rise 
of  the  granules.  When  the  point  is  not  in  the  pigment  epithelium, 
the  two  temperatures  VE  for  n=l  and  2 are  the  same. 

As  may  be  noted  at  sequence  number  315,  provisions  have  been 
made  to  evaluate  NTEST  exposures  during  a single  computer  run. 

These  exposures  may  differ  only  in  their  repetition  rate  or 
number  of  pulses. 

The  basis  for  the  multiple-pulse  computations  is  presented 
in  Appendix  D.  First  the  temperatures  are  interpolated  at  select 
interpulse  times  during  and  between  pulses.  The  interpulse  times 
differ  from  the  times  XT(K).  The  total  number  of  interpulse  times 
from  one  pulse  to  the  next,  is  given  by  KX  --  where  NP  interpulse 
times  are  uniformly  spaced  across  each  pulse  and  three  are  uni- 
formly spaced  across  the  interval  between  pulses.  Measured  from 
the  beginning  of  each  pulse,  the  interpulse  times  for  the  thermal 
damage  calculations  are  stored  in  ZTX(L3)  while  the  interpulse 
times  for  predicting  the  granule  temperatures  are  stored  in  ZT(L3). 
Then  the  temperatures  VIC  for  a single  pulse  are  used  to  compute 
the  temperature  rises  VZ  from  multiple  pulses. 


Temperatures  arc  stored  in  VZ  for  each  pulse  only  when  the 
number  of  pulses  is  less  than  20.  Otherwise  the  code  groups  the 
pulses  into  an  odd  number  of  IN  pulses,  and  stores  the  temperatures 
associated  with  the  middle  pulse  of  each  groups  of  pulses.  Later 
these  temperatures  will  be  used  to  assess  the  damage  caused  by  each 
group.  The  number  of  groups  of  pulses  during  the  exposure  is  INX, 
while  the  number  of  groups  in  the  time  TIME  is  represented  by  INXX. 
Generally,  TIME  exceeds  the  train  length  so  more  pulses  are  con- 
sidered than  actually  exist.  The  reason  for  using  more  pulses 
than  exist  is  _o  provide  for  temperature  predictions  following  the 
exposure  (see  Appendix  D) . This  point  will  be  returned  to  later 
in  this  section. 


In  order  to  relate  the  intcrpulse  times  to  the  times  XT,  it 
is  first  necessary  to  add  the  intcrpulse  times  ZTX  and  ZT  to  the 
product  of  the  number  of  prior  pulses  and  the  time  interval  TC 
from  pulse  to  pulse.  These  times  are  designated  by  X3  and  are 
calculated  at  sequence  numbers  3b7  and  371,  where  L7  equals  the 
number  of  pulses  started  during  the  times  of  interest. 

From  sequence  numbers  363  to  3/3,  the  tcinperuturcs  during 
the  middle  pulse  of  the  first  group  of  pulses  are  evaluated  and 
stored  in  VZ  (I, , L6  ,L3 , u)  where  L indicates  the  point  1D(L),  JD(L) 
at  which  the  temperatures  are  calculated;  L6  labels  the  groups 
of  pulses  concerned;  L3  designates  particular  interpulse  times, 
and  n indicates  whether  the  temperatures  are  for  the  media  or 
granules . 

To  interpolate  the  temperatures  at  time  X3 , it  is  first  nec- 
essary to  determine  which  pair  of  XT(K)  bracket  X3 . To  this  end 
it  should  be  remembered  that  the  times  XT  are  given  by 


XT  ( 1 ) = 0 

xcK-]-i 

XT (K ) = L>T-^cri , K^2 


(23) 


To  find  the  time  XT(K)  just  prior  to  X3 , one  merely  substitutes 
X3  for  XT (l<)  and  solves  for  the  integer  value  of  K.  In  this  man- 
ner X3  is  located  between  XT(K)  and  XT(Ki-l).  Linear  interpolation 
is  then  used  to  find  the  temperature  at  time  X3 . 
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From  sequence  numbers  379  through  397,  the  computations  are 
continued  for  the  2nd,  3rd...INXX  group  of  pulses  (L6=2 , 3 . . . ) . 

In  each  case  the  computations  start  with  the  pulse  following  the 
last  pulse  considered  and  end  with  the  middle  pulse  of  the  suc- 
ceeding group.  In  the  process  the  temperature  contributions  are 
added  sequentially  for  all  pulses . The  result  is  a description 
VZ  of  the  temperature  rises  during  and  immediately  following  se- 
lected pulses  for  a total  of  IN-INXX  pulses. 

As  mentioned  previously  the  number  of  pulses  IN’INXX  consid- 
ered exceeds  the  number  of  pulses  1N-INX  in  the  exposure.  There- 
fore, for  times  exceeding  the  total  exposure  time,  one  must  subtract 
the  temperature  contributions  from  the  last:  IN*  (INXX-INX)  pulses. 
This  operations  is  performed  at  sequence  numbers  398  through  402. 

Retinal  Main:  Sequence  Numbers  404-462 

Here  we  compute  the  damage  caused  by  temperatures  from  multi- 
ple pulses.  Damage  is  evaluated  at  the  points  with  indices  ID(L), 
JD(L).  For  each  point,  an  initial  estimate  is  made  of  the  factor 
CQ  by  which  the  input  laser  power  POW  must  be  multiplied  to  cause 
irreversible  damage.  This  operation  is  conducted  from  sequence 
numbers  413  through  416.  This  estimate  of  CQ  is  purely  empirical 
based  on  the  pulse  duration  DPULSE  and  the  peak  temperature  rise 
at  the  conclusion  of  the  last  pulse.  The  computations  are  aborted 
if  the  temperature  rise  is  below  0.001°C.  This  provision  is  in- 
cluded to  prevent  examination  of  remote  points  wherein  there  is 

no  temperature  rise.  In  such  situations  an  arbitrary  threshold 
) n 

power  of  10  is  printed  for  the  points  ID(L) , JD(L). 

Having  made  an  initial  estimate  of  the  laser  power,  the  next 
step  is  to  set  the  control  indices  LLT  and  LGT  to  0.  These  indices 
become  1 when  the  assumed  laser  power  is  below  or  above  the  pre- 
dicted threshold  value,  respectively.  We  will  return  to  this 
point  later . 

The  damage  calculations  arc  made  from  sequence  numbers  A 21 
through  A32.  Two  criteria  are  used  to  assess  damage.  The  first 


is  the  use  of  an  arbitrary  temperature  TSTEAM  of  the  melanin  gran- 
ules. If  the  temperature  rise  of  the  granules  VZ (L ,L6 ,L3 , 2)  exceeds 
TSTEAM-TO,  where  TO  represents  the  initial  temperature,  then  ir- 
reversible damage  is  assumed.  For  the  computer  runs  considered, 
the  granule  temperatures  are  high  enough  to  cause  damage.  However, 
the  fact  that  the  experimental  damage  results  are  more  in  line 
with  the  thermal  denaturation  criteria  suggests  that  any  damage 
caused  by  steam  is  too  localized  to  be  observable.  Within  a time 
increment  of  say  At,  the  incremental  damage  Aft  caused  by  thermal 
denaturation  is  (see  Section  5) 


Afl  = C-^expC-C^/T  (t)  )At 


(24) 


where  and  C2  are 
Irreversible  damage 


constants  aiid  T (t) 
a 

occurs  if  and  when 

J AO-dr  5 1 

o 


is  the  absolute  temperature. 


(25) 


Being  that  is  a very  large  number  and  the  exponential  is  a very 
small  number,  it  is  advisable  to  evaluate  the  damage  using  logari- 
thms. Therefore,  taking  the  log  of  Eq.  24  yields 


In  (Afi)  = in  C1  - C2/Ta(t)  + In  At  (26) 


To  assess  the  incremental  damage  one  merely  sums  the  exponentials  of 
the  logarithm  of  A Q.  The  accumulated  damage  DAMC  is  therefore 
given  by 


DAMC  = ^ exp  (XI)  (2  7) 

-J- 

where  Xl  = In  - C2/l’a(t)  + In  At.  When  groups  of  pulses  are 
considered.  At  is  multiplied  by  the  number  of  pulses  IN  per  group. 

After  the  damage  has  been  evaluated  for  the  assumed  laser 
power,  CO  is  either  increased  or  decreased  by  4%  according  to 
whether  DAMC  is  less  than  or  greater  than  1,  respectively.  In 
the  process  LIT  is  set  equal  to  one  if  DAMC  <•  1 or  LGT  is  set  equal 
to  one  if  DAMC  > 1.  Once  both  LLT  and  LGT  are  equal  to  1,  the 
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damage  calculations  are  completed  in  that  one  has  crossed  over 
the  threshold  value.  One  half  of  the  last  k°L  correctimi  is  then 
returned  to  CQ  so  that  one  can  be  assured  that  the  predicted  value 
is  accurate  to  within  2°L.  To  separate  the  predictions  of  laser 
power  caused  by  the  two  criteria,  TSTEAM  is  progressively  increased 
until  the  last  two  sets  of  power  predictions  are  the  same.  To 
determine  when  this  occurs  one  of  the  predicted  laser  powers  is 
stored  in  XQ  so  it  can  be  compared  with  its  subsequent  prediction. 

As  a result,  the  last  two  sets  of  power  predictions  are 
associated  with  thermal  damage  while  earlier  predictions  itidica  te 
the  laser  power  necessary  to  raise  the  granule  temperature  above 
T STEAM . One  word  of  caution  is  needed  at  this  point.  Damage 
assessments  are  only  made,  over  the  time  TIME.  At  regions  far  re- 
moved from  the  region  of  greatest  energy  deposition,  the  assigned 
TIME  may  not  be  adequate.  The  adequacy  of  the  time  may  be  judged 
by  examining  the  temperature  print-outs.  If  the  temperature  peaks, 
and  then  drops  by  more  than  roughly  5°C,  then  the  predicted  power 
is  satisfactory.  Otherwi.se,  one  should  increase  TIME  through  the 
array  FTIME  and  increase  dimensions  of  arrays  containing  the  time 
index  KT. 

Retinal  Main:  Sequence  Numbers  4 63 -5 08 

This  section  provides  data  cards  for  plotting  the  temperatures 
at  times  specified  by  the  user.  Here  the  temperature  rises  from 
multiple  pulses  are  calculated  at  points  with  indices  i ranging 
from  III  through  112  and  j indices  ranging  from  JJl  through  JJ2. 

The  times  at  which  the  temperatures  are  desired  are  inputed  by 
the  user  in  the  array  TIMEX.  These  times  are  measured  from  the 
start  of  the  first  pulse  and  may  assume  any  value  from  0 to  TIME. 
These  calculations  are  essentially  the  same  as  those  of  sequence 
numbers  361  through  403. 

In  addition  to  the  temperature  rises,  the  plotting  routine 
must  know  the  range  of  the  points  over  which  plots  are  desired 
as  well  as  the  peak  temperature  rise  HGV  of  the  profile.  Also 
to  aid  in  identifying  the  curves,  a provision  has  been  included 
to  label  a particular  curve.  The  curve  to  be  labeled  will 
have  an  i index  corresponding  to  the  assigned  value  for  113. 

5 3 


In  addition  to  providing  data  cards  for  plotting,  provisions 
are  also  made  for  print-outs  of  the  data.  Three  options  are  avail- 
able in  this  regard.  Tf  KTYPE  is  assigned  a value  of  0,  then  no 
cards  or  print-outs  will  be  provided.  If  KTYPE=n  and  KTYPEO-1  the 
code  will  only  print  the  temperature  rises  at  n times  TIMEX(n) . 
Values  of  KTYPE=n  and  KTYPEO=0  will  provide  both  cards  as  well 
as  print-outs. 

Retinal  Main:  Sequence  Numbers  523-564 

This  portion  of  the  code  computes  the  damage  from  single 
pulses.  The  basic  difference  from  the  damage  calculations  for 
multiple  pulses  is  the  use  of  the  temperatures  at  the  times  XT (K) . 
Here  the  code  assesses  the  damage  from  the  KM  time  intervals,  i.e. 
XT(2)-XT(1),  XT(3)-XT(2),  etc.,  during  the  pulse  as  well  as  an 
additional  (KT-KM)  time  intervals  following  the  pulse.  As  with 
multiple  pulses , damage  is  evaluated  by  using  the  temperatures 
at  the  mid- points  of  the  above  time  intervals.  Other  than  the 
difference  in  time  intervals  the  computations  are  identical  to 
those  for  multiple  pulse  and  the  same  observations  apply. 

Retinal  Main:  Sequence  Numbers  578-603 

Here  provisions  are  made  for  preparing  data  cards  for  con- 
structing 3-D  and  2-D  profiles  of  the  temperature  at  selected 
locations  and  times.  Except  for  the  use  of  a single  pulse,  the 
computations  are  identical,  to  those  used  for  multiple  pulses. 

Retinal  Main ; Sequence  Numbers  605-653 

In  the  final  portion  of  the  main  program,  the  predicted  thres- 
hold powers  QD  for  specified  points  are  used  to  assess  the  region 
damaged  by  the  particular  laser  power"  specified  by  the  user. 

To  assess  the  axial  extent  of  the  damage,  the  computer  first 
scans  the  predicted  powers  to  find  the  i indices  at  which  the 
predicted  powers  bracket  the  specified  power  POX=ROW.  For  minimum 
depths  of  damage  Lhe  i indices  are  1.5  and  16  while  for  maximum 
depths  of  damage  the  i indices  arc  17  and  K8 . Tf  ROW  is  lower 
than  all  the  QD(i,l),  then  16  assumes  the  value  0 and  all  remaining 
computations  are  aborted. 
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If  POW  exceeds  all  the  QD(I,1),  then  the  computer  prints  a message 
indicating  this  fact  and  all  future  axial  computations  are  aborted. 

To  interpolate  the  depths  where  QD=POW,  the  following  equa- 
tion is  used 

QD  » X1‘  exp  (X2  • z ) (28) 

where  QD  represents  the  power,  z represents  the  axial  distance 
and  XI  a;id  X2  are  constants  to  be  evaluated.  By  substituting 
the  two  laser  powers,  say  QD^  and  QD^ , that  bracket  POW  into 
Eq . 28  along  with  their  axial  distances,  say  z^  and  z^,  one  can 
solve  the  resultant  equations  for  XI  and  X2 . The  result  is 

XI  = QD1/exp(X2-z1)  (29) 

X2  = log(QD2/QD1)/(z2-z1)  (30) 

Thus,  substituting  XI  and  X2  back  into  Eq . 28,  replacing  QD  by 

PCW,  and  solving  for  the  threshold  depth  z yields 

z = log  (POW /XI)  /X2  (31) 

By  using  the  pair  of  laser  powers  found  for  small  i values  and 
for  large  i values,  one  arrives  at  the  minimum  and  maximum  depths 
of  damage  along  the  eye's  axis. 

Starting  at  sequence  number  632,  a similar  set  of  computations 
is  made  to  assess  the  radial  extent  of  damage  for  the  depths  at 
which  the  predicted  power  exceeds  POX  or  POW.  Except  for  the  use 
of  r instead  of  z,  the  same  analysis  is  used  as  exemplified  by 
Eqs . 28  through  31.  This  then  completes  the  description  of  the 
main  program. 

7.1.2  Subroutine  Grid  for  Retinal.  Model 

Subroutine  grid  establishes  the  values  for  X (i)  and  R(j) 
subject  to  the  values  assigned  N,  Nl,  N3 , 1)R,  RVL,  M,  Ml,  M2,  M3, 

XAV,  and  DZ  in  the  main  program.  Also  the  subroutine  evaluates 

the  matrix  elements  A and  B for  the  finite-difference  solution 

of  the  heat  conduction  equation.  Moreover,  the  subroutine  determines 
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the  location  of  the  i indices  associated  with  the  first  and  last 
points  of  each  eye  media.  Finally,  the  subroutine  stores  the 
assigned  thermal  conductivities  CON(i)  and  heat  capacities  VSH(i) 
at  the  appropriate  depths  Z(i) . 

Appendix  1 describes  the  techniques  used  to  develop  the  grid 
ne  twork. 


Retinal  Grid:  Sequence  Numbers  15-21 

Here  the  subroutine  evaluates  the  expansion  factor  by  which 
the  radial  grid  steps  are  sequentially  increased  starting  at  j=Nl. 
The  grid  is  selected  so  that  the  radial  extent  RVL  of  the  eye  is 
located  at 


RVL  = (R (N-l)-hR  (N  ) ) /2 


(32) 


For  more  details  the  reader  is  referred  to  Appendix  I. 

Retinal  Grid:  Sequence  Numbers  27-32 

In  this  section  the  radial  distances  of  the  radial  points 
R(j)  are  evaluated  and  assigned. 


Retinal  Grid:  Sequence  Numbers  34-52 

Here  the  matrix  elements  B(j,l),  B(j,2)  and  B(j,3)  are  eval- 
uated for  the  finite -difference  solution  of  the  heat  conduction 
equation.  A description  of  this  evaluation  is  presented  in  Appendix  A. 


Retinal  Grid:  Sequence  Numbers  54-6 1 

This  portion  of  the  code  computes  the  expansion  factor  R1 
for  the  z grid.  The  surface  of  the  cornea  is  located  halfway 
between  Z(l)  and  Z(2),  while  the  surface  of  the  pigment  epithelium 
is  located  halfway  within  the  first  uniform  element.  This  element 
Ls  bounded  by  the  points  Z(M2-Ml+1)  an- 1 Z(M2-Ml+2). 

Retinal  Grid:  Sequence  Numbers  64-76 

Here  the  subroutine  computes  and  assigns  the  values  for  the 
various  Z(i)  using  the  expansion  factor  Rl. 


Retinal  Grid:  Sequence  Numbers  80-100 

Here  the  subroutine  uses  the  depths  of  the  various  interfaces 
to  locate  the  initial  and  last  grid  points  in  each  media.  The  re- 
sulting  i values  are  stored  in  the  arrays  IX  and  LX  and  then  assigned 
to  IPV,  [ PC , . . . LP S , LPT. 
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Retinal  Grid:  Sequence  Numbers  102-118 

To  provide  for  the  possibility  that  the  various  eye  media 
may  have  different  thermal  conductivities  CONX  and  heat  capacities 
VSHX,  provisions  are  made  for  such  variations.  To  this  end,  the 
assigned  thermal  properties  are  stored  with  depth  in  the  arrays 
CON(i)  and  VSH(i) . 

Retinal  Grid:  Sequence  Numbers  121-126 

Here  the  matrix  elements  A(i,l),  A(i,2)  and  A(i,3)  are  eval- 
uated for  use  in  the  finite-difference  equations  of  the  neat  con- 
duction equation  discussed  in  Appendix  A.  These  elements  were 
chosen  so  that  there  is  no  heat  flow  from  the  cornea  to  the  environ- 
mental air.  In  this  regard,  no  consideration  was  given  to  the 
effects  of  blinking. 

7.1.3  Subroutine  Image  of  Retinal  Model 

This  subroutine  performs  two  major  functions.  These  are  to 
determine  the 

• normalized  image  profile  HR  at  the  retina 
(no  malized  profiles  have  a value  of  1 at 
the  eye's  axis) 

• irradiance  QP  on  the  eye's  axis  by  which 
the  normalized  profile  HR  must  be  multi- 
plied to  obtain  the  irradiance  across  the 
image  prior  to  any  internal  reflections  or 
absorption.  The  latter  is  accounted  for 
in  subroutine  HTXDliP. 

Retinal  Image:  Sequence  Numbers  16-17 

Here  the  number  of  radial  increments  for  the  spread  function 
(see  Appendix  H)  integration  is  specified.  The  integration  is 
made  across  the  entire  laser  beam  or  pupil  radius  --  whichever  is 
the  smaller.  In  situations  in  which  the  beam  is  smaller  than  the 
pupil,  LII  becomes  loss  than  LI. 

l(1or  most  exposures,  500  increments  are  adequate.  The  one 
exception  is  when  much  of  the  laser's  energy  is  beyond  about  0.1  cm 
from  the  center  of  the  pupil.  In  such  situations,  it  is  advisable 
to  increase  the  number  of  increments.  A very  crude  rule  of  thumb 
is  to  use  an  LI  value  of  5000  times  the  radius  wherein  most  of  the 


Retinal  Image:  Sequence  Numbers  61-80 

In  this  part  of  the  subroutine,  the  code  evaluates  QP  and  XX 
for  gaussian  profiles.  When  the  user  indicates  a desire  to  place 
the  profile  directly-  onto  the  retina,  the  computer  evaluates  the 
normalized  image  profile  and  stores  the  results  in  ?R(j)  for  future 
use.  On  the  other  hand,  if  the  profile  represents  the  beam  profile 
(signified  by  setting  IFIL=1) , then  the  code  evaluates  the  normal- 
ized profile  at  radial  increments  of  RINT  and  stores  the  results 
in  the  array  FX. 

Retinal  Image:  Sequence  Numbers  82-93 

Here  the  subroutine  treats  uniform  profiles  in  a similar 
fashion  as  the  gaussian  profiles  are  handled  at  sequence  numbers 
61-80. 

Retinal  Image:  Sequence  Numbers  98-119 

This  section  images  irregular  profiles  directly  onto  the 
retina.  Here  the  array  PR  is  determined  by  first  evaluating  the 
accumulated  radial  area  and  associated  power  between  r=0  and  L-RINT. 
The  accumulated  area  is  stored  in  the  array  FA(L),  while  the  accum- 
ulated power  is  stored  in  the  array  FP(L).  These  arrays  are  then 
used  to  establish  the  laser's  intensity  at  the  points  R(j). 

Retinal  Image:  Sequence  Numbers  122-210 

Here  the  beam  profile  is  optically  imaged  onto  the  retina. 

The  method  used  to  determine  the  image  is  described  in  Section  3 
and  Appendix  H.  The  spread  fuiiction  calculations  apply  to  all 
profiles.  Wherever  different  symbols  are  used  in  the  code  from 
those  of  the  text  we  shall  inject  an  'or'  between  symbols.  The 
first  symbol  is  used  in  the  code. 

The  first  portion  of  this  section  evaluates  the  index  of 
refraction  NC  or  n,  the  second  principal  focal  length  FL  or  f and 
the  incremental  distance  XO  or  Az.  Then  the  beam  profile  (described 
by  the  array  FX)  is  refracted  onto  the  pupil  yielding  a profile  FY. 

From  sequence  number  148  through  158  the  real  and  imaginary 
parts  of  the  integrand  of  Eq . 7 are  evaluated  exclusive  of  the  Bessel 
Function.  The  real  part  of  the  integrand  is  stored  in  XF1(L)  at 
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radial  distances  of  (L-l)-RINT  while  the  imaginary  part  is  stored 
in  XF2(L).  From  sequence  numbers  167  through  190,  the  Bessel 
Function  is  evaluated  and  stored  in  X7 . Then  the  integrals  of 
the  real  and  imaginary  parts  are  determined  using  the  radial  incre- 
ments RINT.  The  two  integrals  are  represented  by  X2  and  X3 . 

Finally  at  sequence  number  191,  the  resultant  integrals  are  squared 
and  added  together  to  yield  the  shape  of  the  image  profile  HR. 

Before  using  HR,  it  is  normalized  so  that  is  has  a value  of  1 at 
r-0. 

From  sequence  numbers  195  through  210  the  normalized  image 
profile  HR  is  integrated  over  the  radial  area.  The  result  is 
represented  by  X4.  Then  the  total  laser  power  POX  is  used  in 
conjunction  with  X4  to  arrive  at  the  irradiance  QP  on  the  retina 
at  r=0  presuming  no  internal  reflections  or  absorption.  Reflections 
and  absorption  are  considered  in  subroutine  HTXDEP. 

Retinal  Image:  Sequence  Numbers  217-218 

In  cases  in  which  the  specified  profile  is  to  be  projected 
directly  onto  the  retina  (by  setting  1FIL=0) , HR(j)  is  set  equal 
to  the  specified  profile  PR(j).  After  the  above  computations  are 
completed,  subroutine  IMAGE  is  never  reentered. 

7.1.4  Subroutine  HTXDEP  of  Retinal  Model 

This  subroutine  assesses  the  rate  of  energy  deposition  into 
the  various  regions  of  the  eye  on  a per  unit  volume  basis.  A dis- 
cussion of  the  techniques  used  is  given  in  Appendix  F.  The  primary 
advantage  of  this  analysis  is  that  die  eye's  interfaces  need  not 
coincide  with  the  boundaries  between  grid  increments. 

To  determine  the  rates  of  energy  deposition,  the  subroutine 
starts  with  the  image  jirofile  and  assumes  that  it  exists  at  all 
depths  of  the  eye.  This  assumption  is  reasonable  in  the  vicinity 
of  the  retina  where  much  of  the  heat  is  concentrated.  Discrepancies 
will  increase  with  distance  from  the  retina.  However,  at  depths 
far  removed  from  the  retina,  errors  are  of  secondary  importance 
because  of  the  relatively  low  rates  of  energy  deposition. 
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Retinal  HTXDEP:  Sequence  Numbers  13-15 

These  statements  control  the  course  of  the  calculations. 
Initially,  the  control  index  IHT  is  set  equal  to  two  in  the  main 
program  while  QP  has  a value  exceeding  1*10  Therefore,  the 

heat  deposition  rates  S(i,j)  are  evaluated  following  the  first 
entry  of  the  subroutine.  After  these  computations  are  completed, 
IHT  is  set  equal  to  1 so  that  the  same  S(i,j)  values  are  used 
throughout  the  pulse.  This  means,  of  course,  that  the  laser  power 
is  constant  during  the  pulse.  Once  the  pulse  is  over,  QP  is  set 
equal  to  0 in  the  main  program  causing  the  subroutine  to  set  IHT 
aiid  all  the  S(i,j)  equal  to  aero.  Once  IHT  assumes  a value  of 
zero,  all  future  entries  are  aborted. 

Retinal  HTXDEP:  Sequence  Numbers  16-32 

Here  the  subroutine  sets  LZ  equal  to  the  number  eye  media  + 1. 
Moreover,  LZO  is  set  equal  to  the  number  of  eye  media.  LZl  is  set 
equal,  to  the  number  of  interfaces  in  the  eye  and  underlying  tissue. 
Then  the  boundarys  ZH(i)  of  the  z increments  are  evaluated,  and 
the  arrays  II,  IZ , AB,  REP  and  REEL  are  initialized  to  zero.  These 
arrays  will  be  discussed  as  they  are  evaluated.  Finally,  the 
reflection  coefficients  REF  are  assigned  values  at  the  retina  and 
sclera.  Here  REF(l)  has  been  set  to  0 since  corneal  reflection 
is  accounted  for  in  the  irradiance  QP. 


Retinal  HTXDEP:  Sequence  Numbers  37-4-7 

Then  the  code  uses  the  known  absorption  coefficients  APE  and 
ACH  for  the  pigment  epithelium  and  choroid,  respectively,  to  assess 
the  absorptioii  coefficient  for  the  portion  of  the  PE  containing 
granules  and  the  p,,rtion  void  of  granules.  To  distinguish  between 
the  two  portions  of  the  PE,  the  user  must  assign  a value  for  the 
fractional  distance  RPE  of  their  interface  from  the  front  of  the 
PE.  This  datum  is  read  in  on  data  card  13  of  the  main  program. 

The  coefficient  for  the  front  portion  of  the  PE  is  represented  by 
A PEI  while  the  coefficient  for  the  rear  portion  of  the  PE  is  repre- 
sented by  APE2.  In  monkeys,  the  granules  are  at  the  front  of  the 
PE  while  in  humans  the  granules  are  at  the  rear.  To  accommodate 
this  difference,  IGX  should  be  assigned  a value  of  0 when  considering 
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monkeys,  and  a value  of  1 when  considering  humans.  This  index 
is  read  in  on  data  card  4 of  the  main  program. 

To  evaluate  the  coefficients  APE1  and  APE2 , the  portion  of 
the  PE  void  of  granules  is  assumed  to  have  an  absorption  coeffi- 
cient equal  to  that  of  the  choroid.  The  absorption  coefficient 
of  the  remaining  portion  of  the  PE  is  then  selected  consistent 
with  the  absorption  of  energy  by  the  entire  PE.  This  condition 
requires  that  the  sum  of  the  products  of  the  absorption  coeffi- 
cients and  PE  thicknesses  are  equal  for  the  two  cases. 

Next,  a determination  is  made  of  the  fraction  AP  of  the 
granulated  PE's  energy  absorbed  by  the  granules.  This  evaluation 
is  made  by  first  computing  the  energies  absorbed  by  granulated  PE 
and  by  an  equivalexit  thickness  of  choroid.  Then  the  fraction  AP 
is  found  by  dividing  the  difference  by  the  energy  absorbed  by  the 
granulated  PE.  The  fraction  AP  is  later  combined  with  computations 
of  subroutine  MXG11AN  to  predict  how  the  average  temperature  of 
the  granules  decay  in  time.  Finally,  Lhe  i index  IG  of  the  first 
point  in  the  granulated  PE  is  assigned. 

Retinal  HTXDEP:  Sequence  Numbers  50-102 

After  assigning  the  absorption  coefficients  to  the  array  ABS, 
the  subroutine  evaluates  the  arrays  AB , II,  IZ  and  ABll.  For  details 
of  this  analysis  the  reader  is  referred  to  Appendix  F.  Here  AB(i,L) 
represents  the  product  of  the  absorption  coefficient  and  thickness 
of  each  eye  media  in  the  increment  containing  Z(i).  The  index  L 
ranges  from  1 to  the  total  number  of  media  contained  within  the 
element.  To  identify  which  media  interfaces  are  located  within 
the  increments,  the  array  II  (i.)  is  used  to  represent  the  Tiumber  of 
interfaces  within  the  i-th  increment  plus  1,  while  IZ(L)  repre- 
sents the  argument  of  the  first  interface  ZD  within  the  increment. 

The  array  ABR(i,Ll)  represents  the  sum  of  the  AR(i,l),  AB(i,2)... 
associated  with  each  media  between  ZH(i-l)  and  ZD(Ll). 

In  order  to  prevent  the  possibility  of  underflow  due  to 
excessively  large  values  of  AB  or  ABR,  they  v'ere  limited  to  a 
value  of  10.  This  value  was  chosen  .ince  it  means  that  practically 
all  the  energy  will  be  absorbed  within  the  particular  element. 
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Retinal  HTXPEP : Sequence  Numbers  104-122 

In  this  portion  of  the  subroutine,  the  incoming  irradiance 
is  followed  through  each  media  to  find  rates  at  which  energy  is 
being  deposited  into  each  increment.  Here  X3  represents  the  ir- 
radiance entering  an  increment;  X2  represents  irradiance  entering 
the  next  increment;  and  X4  represents  the  irradiance  reflected 
away.  To  account  for  irradiance  changes  with  radius,  the  resultant 
values  are  multiplied  by  the  normalized  image  profile.  To  arrive 
at  the  rates  of  energy  deposition  S(i,j)  per  unit  volume,  the 
above  product  is  divided  by  the  increment's  depth,  i.e.  ZH(i)-ZIl(i-l) . 

To  guard  against  the  possibility  of  underflow,  S(i,j)  is  set 
equal  to  zero  when  it  becomes  excessively  small  (lCT^/DPULSli) . 

Retinal  HTXDEP:  Sequence  Numbers  123-145 

From  sequence  number  125  through  131,  the  reflected  intensities 
REFL  are  evaluated  for  each  of  the  interfaces.  Immediately  there- 
after, each  of  the  reflected  irradiances  are  followed  through  the 
eye  to  arrive  at  the  rates  of  energy  deposition  into  each  increment. 
Here  we  have  assumed  the  rays  move  in  an  axial  direction,  and  have 
neglected  multiple  reflections. 

Retinal  HTXDEP:  Sequence  Numbers  151-154 

As  mentioned  earlier,  after  the  pulse  is  over,  S(i,j)  and  IHT 
are  set  to  zero.  Thereafter,  all  subsequent  calculations  by  this 
subroutine  are  aborted. 

7.1.5  Subroutine  MXGRAN  of  Retinal  Model 

In  this  subroutine  the  granule  temperatures  are  calculated 
neglecting 

• heat  absorbed  by  changes  of  state 

• energy  losses  due  to  pressure  waves 
and  mechanical  displacements 

Thus  all  granule  temperature  predictions  represent  upper  bounds. 

The  subroutine  starts  with  a description  of  how  the  average  tem- 
perature rise  of  the  granules  decays  with  time  following  the  in- 
stantaneous deposition  of  heat.  These  results  were  obtained  from 
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the  analysis  of  Appendix  C and  are  placed  on  data  cards  at  time 

__  n “ S 

intervals  of  3.0*10”  sec.  During  intervals  of  0.3*10  sec, 

heat  conduction  from  the  granules  is  insignificant.  These  tem- 
perature rises  are  represented  by  TS,  and  were  computed  by  plac- 
ing a given  quantity  of  heat  in  the  granules  and  using  the  finite- 
difference  equations  of  Appendix  C to  determine  the  transient 
temperatures.  The  quantity  of  heat  was  chosen  so  that  the  aver- 
age temperature  rise  of  the  granules  and  their  immediate  environ- 
ment is  1°C. 

Most  laser  pulses  are  sufficiently  long  (i.e.>  10  sec)  to 
allow  significant  heat  conduction  from  the  granules  to  their  im- 
mediate surroundings  during  the  pulse.  Such  cases  may  be  treated 

^ O 

by  subdividing  the  pulse  into  LPT  incremental  pulses  of  0.3-10  ° 
duration,  and  adding  the  temperature  contributions  from  each  in- 
cremental  pulse.  The  incremental  pulse  duration  of  0.3*10  sec 
is  represented  by  BT.  If  the  normalized  temperature  rise  from 
a single  incremental  pulse  is  TS(t),  then  the  normalized  tempera- 
ture rise  T(t)  produced  by  LPT  incremental  pulses  is ' 


T(t)  - 


TS(t-(n-l)BT)/LPT 


(32) 


With  time,  both  TS  and  T approach  1°C.  When  T equals  one  there 
is  no  temperature  difference  between  the  granules  and  their 
immediate  environment. 


To  relate  the  above  results  to  the  temperature  rises  of  the 
PE,  one  must  account  for  the  fact  that  only  a portion  of  the  PE’ 
energy  is  deposited  into  the  granules.  This  fact  is  accounted 
for  in  the  main  program  by  use  of  the  factor  AP.  To  arrive  at 
the  actual  granule  temperature  rises,  the  normalized  temperature 
rises  are  multiplied  by  the  temperature  rise  of  the  PE  volume 
within  which  they  lie. 

Here  the  temperature  rises  are  evaluated  at  the  times  XT (K) 
and  the  results  stored  in  XPD(K)  . To  conserve,  on  computational 
time  the  summation  is  made  only  when  the  contributions  from  TS 
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see 
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are  significantly  greater  than  1°C.  In  this  regard,  the  incre- 
mental pulses  cease  to  be  important  after  a time  LTMAX -BT. 

Retinal  MXGRAN : Sequence  Numbers  12-30 

If  the  pulse  duration  DPULSE  is  greater  than  1*10""’  sec,  the 
peak  temperature  achieved  by  the  granules  will  not  exceed  that 
of  its  immediate  surroundings.  Therefore,  for  such  exposures  the 
transient  temperature  calculations  are  aborted.  In  addition  this 
section  assigns  values  to  BT  and  LPT,  and  evaluates  TS  at  each 
BT  interval  using  the  data  provided  TS  at  intervals  of  10-BT. 

Retinal  MXGRAN:  Sequence  Numbers  33-62 

In  order  to  conserve  on  computational  time,  the  subroutine 
distinguishes  between  short  pulses  in  which  the  pulse  duration 
LFI'BT  is  less  than  the  time  for  heat,  dissipation  following 
the  first  incremental  pulse,  namely  LTMAX ■ BT . 

In  this  portion  of  the  code  LPT  is  less  than  LTMAX  so  that 
all  LPT  temperature  contributions  are  significant  during  the  pulse. 
After  the  pulse,  ati  increasing  number  PO  of  the  incremental  pulses 
cease  to  be  important  while  (LPT-PO)  are  significant. 

Therefore,  at  sequence  numbers  57  through  59  the  sum  of  the 
temperature  contribution  X2  is  fj-'st  set  equal  to  PO.  Then  the 
remaining  contributions  are  added  to  X2  on  a one  by  one  basis. 
Finally  the  sum  X2  is  divided  by  the  total  number  of  contributions 
considered . 

Retinal  MXGRAN:  Sequence  Numbers  65-87 

In  this  section,  the  subroutine  performs  the  calculations 
for  cases  in  which  the  pulse  duration  LPT'BT  exceeds  LTMAX >BT . 

Here  the  only  difference  fi  m the  earlier  case  is  the  manner  by 
which  the  significant  contributions  are  identified.  Otherwise, 
the  determinations  of  XPD(K)  are  the  same. 

Retinal  MXGRAN:  Sequence  Numbers  90-92 

When  the  granule  temperatures  do  not  differ  from  those  of 
their  surroundings,  all  subsequent  values  of  XPD(K)  are  set  equal 
to  1.  After  printing  the  values  for  XPD,  the  subroutine  calcula- 
tions are  completed  and  neve  - repeated  therafter. 
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7.1.6  Subrouting  BLOOD  of  Retinal  Model 


Subroutine  BLOOD  considers  blood  flow  both  in  the  chorio- 
capillaris  and  in  tissues  surrounding  the  eye.  To  this  end  we 
have  used  the  analysis  described  in  Appendix  B to  determine  tl. 
changes  needed  in  the  matrix  elements  A(i,2),  B(j,l),  B(j,2)  and 
B(j,3)  to  account  for  blood  flow.  The  elements  A and  B represent 
the  factors  by  which  various  differences  of  temperature  rises  must 
be  multiplied  to  account  for  heat  conduction.  The  coefficients  B 
are  associated  with  heat  conduction  along  radial  directions  while 
the  coefficients  A are  associated  with  heat  conduction  in  the  axial 
direction. 

Retinal  BLOOD:  Sequence  Numbers  19-21 

Here  we  determine  the  interfaces  between  the  radial  points 
R(j)  needed  to  assess  the  rates  of  blood  flow  entering  and  leaving 
each  radial  increment  of  the  chorio-capillaris . 

Retinal  BLOOD:  Sequence  Numbers  22-31 

Here  determinations  are  made  of  the  blood  flows,  entering 
XI (j)  and  leaving  XO(j)  the  chorio-capillaris  at  points  R(j).  These 
flows  are  on  a per  unit  area  basis  and  are  interpolated  using  the 
flows  XFL0W1(L2)  and  XFLOWO (L2)  specified  at  radial  distances  of 
0FL0W(L2) . 

Retinal  BLOOD:  Sequence  Numbers  32-46 

Next  the  arrays  XFLOWX(j),  FLOWI(j)  and  RD(j)  are  evaluated. 

For  a description  of  these  arrays  see  Appendix  B. 

Retinal  BLOOD:  Sequence  Numbers  54-77 

At  sequence  numbers  34-61  the  necessary  changes  BV  and  BB 
of  the  matrix  elements  A and  B are  evaluated  using  Eq . B-17. 
Following  these  computations,  the  arrays  LV(i)  and  IAB(i,j)  de- 
signating the  locations  of  the  two  blood  flows  are  specified. 

The  array  IV(i)  is  set  to  1 for  all  i values  corresponding  to 
points  in  the  chorio-capillaris  and  0 otherwise;  the  array  lAB(i,j) 
is  set  to  1 for  all  i,j  values  corresponding  to  points  in  the 
tissues  surrounding  the  eye  and  0 otherwise.  Blood  flow  is  not 
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J considered  at  a particular  location  i,j  of  the  eye  when  both 

arrays  are  zero. 

2 Because  of  the  possibility  for  rapidly  changing  temperatures, 
this  subroutine  is  reentered  at  each  time  step  used  in  the  single 

H pulse  calculations  of  the  main  program. 
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7 . 2 Corneal  Model. 


The  Corneal  model  computes  damage  either  on  the  cornea  or 
lens  and  consists  of  a main  program  plus  four  subroutines.  Prin- 
cipal features  of  the  code  are  illustrated  in  Fig.  10.  Here  we 
shall  describe  each  part  of  the  Corneal  model  using  the  listing 
presented  in  Appendix  L.  Throughout  this  discussion  we  shall  re- 
fer to  the  sequence  numbers  at  the  left-hand  side  of  the  listing. 
Included  in  Appendix  Lis  a description  of  the  variables  and  sample 
data  used  in  the  code. 

All  input  data  required  by  the  code  are  read  in  the  main 
program.  The  order  in  which  the  data  are  read  in  is  indicated  by 
the  numbers  at  the  right-hand  side  of  the  listing.  Read  statements 
with  asterisks  are  executed  only  for  irregular  laser  profiles. 

Some  of  this  discussion  is  a repeat  of  that  for  the  Retinal 
model  due  to  the  many  similarities  between  the  two  models. 

7.2.1  Main  Program  for  Corneal  Model 

Figure  11  illustrates  key  portions  of  the  main  program.  Num- 
bers in  the  boxes  refer  to  the  sequence  numbers  of  the  listing. 

Corneal  Main:  Sequence  Numbers  1-52 

Sequence  numbers  24  through  26  define  the  number  N1  of  uni- 
form grid  increments,  anl  the  total  number  N3  of  grid  points  in 
the  radial  grid.  Here  Ni  must  be  less  than  N3 . The  size  of  the 
smallest  radial  grid  increments  DR  is  established  at  sequence  num- 
bers 29  and  30.  For  gaussian  or  irregular  laser  profiles,  DR  is 
found  by  subdividing  the  lesion  radius  LESION  into  an  integer 
number  LIM  of  increments.  For  uniform  profiles,  DR  is  found  by 
subdividing  the  profile  radius  RIM  into  (LIM-.5)  increments.  The 
latter  choi.ce  was  made  so  that  the  boundary  of  the  radial  incre- 
ments would  coincide  with  RIM.  At  present  all  values  of  DR  should 
be  larger  than  about  0.0003  cm  to  avoid  temperature  instability. 

To  use  smaller  DR  values,  the  size  of  the  initial  time  steps  DT 
must  be  decreased  and  the  dimension  KT  increased  in  the  appropriate 

arrays  (see  Appendix  L)  . If  one  wishes  to  reduce  DR  by  a factor  £ , 

2 

then  DT  should  be  decreased  by  the  jetor  £ . 
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MAIN  PROGRAM 
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At  sequence  numbers  36  and  37,  the  index  LPX  is  set  equal 

to  0 or  1 according  to  •whether  the  laser  exposure  involves  single. 

or  multiple  pulses,  respectively.  This  index  is  used  to  control 

the  course  of  the  computations . At  sequence  numbers  41  and  42, 

the  laser  power  and  pulse  duration  are  altered  when  the  pulse  dur- 

“ 8 

ation  is  less  than  O.S'lO  sec.  In  these  alterations,  the  total 
energy  is  preserved.  These  changes  save  on  computational  time  and 
reflect  the  fact  that  the  coiiduction  of  heat  over  dimensions  of 
0.0001  cm  is  insignificant  during  times  less  than  0.3 ‘10  sec. 

Corneal  Main:  Sequence  Numbers  57 -61 

At  sequence  numbers  57  through  61,  the  time  step  DT  and  the 
total  time  TIME  are  computed  for  single-pulse  exposures  using  the 
arrays  XCT , NPT,  and  KTT  as  a function  of  the  pulse  duration  1)  PULSE. 
The  expansion  factor  XC  by  which  successive  time  sLeps  are  in- 
creased is  selected  from  the  values  of  the  array  XCT.  The  number 
of  time  steps  NP  within  DPULSE  is  selected  from  values  in  the  array 
NPT;  and  the  total  number  of  time  steps  KT  is  selected  from  the 
values  in  the  array  NPT.  The  values  assigned  these  arrays  are  given 
on  data  cards  18,  17,  and  19,  respectively.  The  result  of  these 
computations  is  time  steps,  UT  , XC ■ DT  , XC2 • DT , , . . XC ~ ^ • DT , where 
the  total  time  TIME  is  given  by 

KT- 1 

ZypKT 

(XC ) n ■ DT  = OT--—PP  = XT  (KT ) (34) 

n=0 

The  elapsed  time  from  the  start  of  a pulse  to  the  K-th  time  step 
is  represented  by  XT(K-fl).  Here  XT(1)=0.  At  the  end  of  a pulse 
of  duration  DPULSE, 

XT  (KM)  = DPULSE  (35) 

Corneal  Main:  Sequence  Numbers  64-75 

At  sequence  numbers  64  through  73,  the  code  computes  TIME , 
and  DT  for  multiple-pulsed  exposures.  Also  the  expansion  factor 
XC  is  set  equal  to  the  relatively  large  value  of  1.4  so  that  the 
total  time  TIME  brackets  all  the  pulses  without  resorting  to  large 
numbers  of  time  steps.  The  total  time  TIME  is  determined  by  first 
evaluating  the  train  length  and  then  multiplying  the  result  by 
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the  value  found  in  the  array  FTIME  for  the  pulse  width.  To  provide 
maximum  flexibility  the  array  FTIME  is  described  by  input  data  as  a 
function  of  pulse  duration.  Elements  of  FTIME  should  always  be 
greater  than  1. 

If  the  temperature  rises  from  a pulse  do  not  approach  zero 
in  the  alotted  time,  then  one  should  increase  the  particular  ele- 
ment of  the  array  FTIME  corresponding  to  DPULSE . 

At  sequence  number  73,  DPULSE  is  subdivided  into  NP  uniform 
time  steps  of  magnitude  PTIME  (see  Appendix  D)  for  subsequent 
damage  evaluations.  For  more  refined  damage  calculations,  one  can 
increase  the  number  of  intervals  bearing  in  mind  that  it  will  re- 
quire increases  in  the  dimensions  of  arrays  with  arguments  KT  and 
KX  (see  Appendix  L)..  Here  KX  equals  the  total  number  of  time  in- 
tervals used  to  evaluate  damage  from  pulse  to  pulse  and  presently 
equals  NPH-3  (see  sequence  number  294). 

At  sequence  numbers  74  and  75  the  final  values  for  KT  and  KM 
are  specified  for  single  or  multiple-pulsed  exposures. 

Corneal  Main:  Sequence  Numbers  80-35 

At  sequence  numbers  80  through  85,  the  i indices  for  the 
axial  grid  points  are  chosen  along  with  the  size  of  the  smallest 
increment  DZ  on  t:hc  z axis . Here  Di  is  chosen  according  to  the 
pulse  duration  DPUj-.SE,  absorption  coefficient  (ABS(l)  for  corneal 
damage  c r A°>S(4)  for  lens  damage)  and  the  constants  DZ1  and  DZ2 
assigned  on  card  no.  1.  To  ensuie  DZ  is  not  too  large,  the  user 
should  exar,  : ,.e  the  temperature  results  for  excessive  temperature 
changes.  Such  casts  may  be  remedied  by  altering  the  values  as- 
signed DZ1  and  DZ2 . 

Coi  cal  Main.  Sequence  Numbers  87-95 

From  sequence  numbers  87  through  94,  the  distances  ZD  of 
the  various  interfaces  from  t'n  cornea  are  computed  using  the 
assigned  thicknesses  TH  for  t.i.  various  media.  Here  Zl)(8)  is 
set  equal  to  an  exceptional  x large  value  to  ensure  it  contains 
"(M3),  the  last:  grid  point  on  the  Z axis. 

At  sequence  number  95,  subroutine  GRID  is  called  to  compute 

• the  locations  of  all  grid  points  Z(i),  R(j), 
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• the  indices  for  the  various  eye  media,  and 

• other  spaeially-dependent  thermal  properties. 

A discussion  of  this  subroutine  is  given  in  Section  7.2.2. 

Corneal  Main:  Sequence  Numbers  97-101 

Here  the  i,j  indices,  at  which  temperature  print-outs  are 
desired,  are  computed.  These  points  are  chosen  according  to 
the  values  assigned  ID1 , ID2 , JDl  and  JD2  on  data  card  no.  11. 
Temperature  print-outs  are  provided  for  i.  indices  ranging  from 
IP1+ID1  (input)  to  IP1+ID2  (input) , where  1P1  refers  to  first 
point  in  the  cornea  regardless  of  the  value  assigned  ILENS . 

Corneal  Main:  Sequence  Number  110 

In  this  section  subroutine  IMAGE  is  called  to  store  the  nor- 
malized irradiance  profile  (corneal)  in  the  array  HR(j)  and  to 
assess  how  the  profile  is  altered  in  depth  by  corneal  refraction. 
This  subject  will  be  returned  to  in  Sections  7.2.2  and  7.2.3. 

Input  data  describing  gaussian  and  uniform  profiles  are  to  be 
placed  on  data  cards  4 arid  6,  while  other  profiles  may  be  desig- 
nated by  using  data  cards  1?..*,  19**  and  19A***  of  subroutine  IMAGE. 

Corneal  Main:  Sequence  Numbers  113-123 

In  this  section  the  initial  temperature  rises  are  set  to  an 

insignificantly  small  non-zero  (10-^^)  value.  This  provision  is 

provided  to  prevent  subsequent  underflow.  Computer  insta I lotions 

without  library  routines  to  handle  underflow  will  not  tolerate 

-37 

temperature  rises  of  the  order  of  1.-10  that  are  other  than  zero. 
Comeal  Main:  Sequence  Numbers  145-225 

This  part  of  the  code  assesses  temperature  rises  caused  by 
a single  pulse  as  described  by  Appendix  A.  Here  heat  is  deposited 
at  a rate  of  S(i,j)  per  unit  volume  at  each  point  Z(i),  R(j)  during 
the  pulse,  i.e.  at  times  of  XT(1),  XT(2) . . .XT(KM) . Immediately 
after  the  pulse,  S(i,j)  is  set  equal  to  zero  by  subroutine  HT'XDEP . 

Two  provisions  are  left  to  the  discretion  of  the  user.  The 
first  is  that  one  can  reduce  the  time  intervals  used  to  compute 
the.  temperature  rises  without  changing  the  time  steps  XT(K)-XT(K-1.) . 
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This  involves  changing  the  integer  IKX  which  provides  for  2’ IKX 
time  intervals  of  size  (XT(K)-XT(K-l) ) / (2 • IKX) . 

IKX  may  be  altered  by  adjusting  the  values  assigned  EDTl  and 
EDT2  on  data  card  no.  12.  This  provision  is  included  so  that  one 
can  Improve  accuracy  or  eliminate  instability  without  having  to 
increase  the  number  of  time  steps  KT  and  storage.  Except  for  long 
pulse  times,  a value  of  1 for  IKX  is  usually  adequate.  To  reflect 
the  fact  that  IKX  should  be  greater  than  1 for  pulse  widths  of  the 
order  of  1000  sec  or  more,  DPULSE  has  been  included  in  the  evalua- 
tion of  IKX. 

The  second  option  is  the  times  at  which  temperature  print- 
outs are  desired.  This  option  is  provided  by  the  value  assigned 
ITYPE  in  the  input  data.  If  one  wishes  print-outs  at  each  of 
the  times  XT(K),  then  one  merely  sets  ITYPE  =1.  If  one  wishes 
print-outs  at  every  n-th  XT(K)  then  ITYPE  should  be  set  equal 
to  n.  Print-outs  will  always  be  provided  at  the  conclusion  of 
the  pulse  as  well  as  at  the  last  time  XT (KT) . 

Corneal  Main:  Sequence  Numbers  231-236 

This  part  of  the  cade  is  provisional  Tn  that  it  applies  only 
if  there  are  any  particles  in  the  eye.  At  present,  no  particles 
are  considered  so  that  subroutine  MXGRAN  sets  both  XPD  and  AP 
equal  to  one.  The  above  discussion  also  applies  to  the  arrays 
VE(L,K,2)  and  VZ (L,L6,L3 ,2)  which  will  be  discussed  later  in  this 
sec  tion . 

Corneal  Main:  Sequence  Numbers  243-262 

Here  we  select  the  points  ID(L),  JD(L)  at  which  damage  cal- 
culations are  to  be  made.  Two  input  parameters  are  required  to 
specify  the  points.  The  first  is  the  radial  distance  RMAX  over 
which  damage  assessments  are  desired.  Damage  is  evaluated  for 
all  grid  points  starting  at  R(l)  and  ending  at  the  first  point 
beyond  RMAX,  namely  R(JM). 

The  second  control  one  has  in  selecting  the  points  is  in  the 
value  assigned  LIMAX.  Knowing  this  variable,  the  code  establishes 
the  depth  Z(IMAX)  of  greatest  temperature  rise  beyond  the  tear  layer 
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and  the  assesses  the  damage  from  Z (IMAX-LIMAX)  to  Z ( IMAX+LIMAX) . 

Thus  when  LIMAX  is  set  equal  zero,  damage  is  evaluated  only  at 
the  depth  of  highest  temperature. 

The  number  of  points  at  which  damage  is  to  be  evaluated  is 
given  by  LIJ.  If  LIJ  is  larger  than  the  alloted  dimension  for 
the  arrays  associated  with  LIJ,  then  the  computations  are  halted. 
Moreover,  care  should  be  exercised  to  limit  the  number  of  points 
--  first,  because  points  remote  from  the  region  of  greatest  tem- 
perature require  considerable  time  to  heat  and  cool,  and  secondly 
because  of  the  appreciable  increase  of  storage  required  when  LIJ 
is  increased. 

Corneal  Main:  Sequence  Numbers  269-366 

In  this  section  the  temperature  rises  caused  by  multiple, 
pulses  are  computed  using  the  temperature  predictions  for  a single 
pulse.  Also,  the  array  ZTT  is  evaluated  for  subsequent  computa- 
tions of  the  damage. 

First,  the  temperature  rises  at  the  grid  points,  ID(L)  and 
JD(L)  at  which  damage  calculations  are  desired  at  times  XT(K)  are 
stored  in  the  array  VE(L,K,n).  The  index  n is  provided  to  distin- 
guish between  any  particles  and  their  immediate  surroundings.  At 
present  this  provision  of  the  code  is  not  used  so  that  the  temper- 
atures VE  for  n-1  and  n=2  are  identical.  As  may  be  noted  at  se- 
quence number  2.83,  provisions  have  been  made  to  evaluate  NTF.ST 
exposures  during  a single  computer  run.  These  exposures  may 
differ  only  in  their  repetition  rate  or  number  of  pulses. 

The  basis  for  the  multiple-pulse  computations  is  presented 
in  Appendix  D.  First  temperatures  ere  interpolated  at  a num- 
ber ot  select  interpulse  times  during  and  between  successive  pulses 
since  the  intcrpulse  times  differ  from  the  times  XT(K).  The  total 
number  of  interpul.se  times  from  one  pulse  to  the  next , is  given 
by  KX  --  where  NP  interpulse  times  are  uniformly  spaced  across 
each  pulse  and  three  are  uniformly  spaced  across  the  interval  be- 
tween pulses.  Measured  from  the  beginning  of  each  pulse,  the  inter- 
pulse times  for  the  thermal  damage  calculations  are  represented  by 
ZTX(L3)  while  the  interpulse  times  associated  wi.th  any  particle 


teraperaturei;  are  represented  by  ZT(L3).  For  a description  of  these 
times  the  reader  is  referred  to  Appendix  D. 

Temperatures  are  stored  in  VZ  for  each  pulse  only  when  the 
number  of  pulses  is  less  than  20.  Otherwise  the  code  groups 
the  pulses  into  an  odd  number  of  IN  pulses , and  stores  the  temper- 
atures associated  with  the  middle  pulse  of  each  group  of  pulses. 
Later  these  temperatures  are  used  to  assess  the  damage  caused  by 
each  group.  The  number  of  groups  of  pulses  during  the  exposure 
is  I NX , while  the  number  of  groups  of  pulses  contained  in 
time  TIME  is  represented  by  INXX.  In  order  to  account  for  the 
fact  that  the  time  TIME  exceeds  the  train  length,  more  pulses  are 
considered  than  actually  exist.  The  reason  for  using  more  pulses 
than  exist  is  to  provide  for  temperature  predictions  following 
the  exposure  (see  Appendix  D)  . This  point  will,  be  returned  to 
later  in  this  section. 

In  order  to  relate  the  interpulse  times  to  die  times  XT,  it 
is  first  necessary  to  add  the  inoerpulse  times  ZTX  and  ZT  to  the 
product  of  the  number  of  prior  pulses  and  the  time  interval  TC 
from  pulse  to  pulse.  These  times  are  designated  by  X3  and  are 
calculated  at  sequence  numbers  331  and  335,  where  L7  equals  the 
number  of  pulses  started  during  the  times  of  interest. 

From  sequence  number:;  326-341,  the  temperatures  during 
the  middle  pulse  of  the  first  group  of  pulses  are  evaluated  and 
stored  in  VZ (L,L6 ,L3 ,n) , where  L indicates  the  point  1D(L),  JD(L) 
at  which  the  temperatures  are  calculated;  L6  equals  one  for  the 
first  group  of  pulses;  L3  designates  particular  interpulse  times 
and  n indicates  whether  the  temperatures  are  for  the  media  or  any 
partic  les. 

To  interpolate  the  temperatures  at  time  X3 , it  is  first 
necessary  to  determine  which  pair  of  XT(K)  bracket  X3 . To  this 
end  it  should  be  remembered  that  the  times  XT  arc  given  by 
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, 2 


(36) 


XT (1)  = 0 


XT (K)  = DT 


XCK_1-1 

XC-1 


To  find  the  time  XT(K)  just  prior  to  X3 1 one  merely  substitutes 
X3  for  XT (K)  and  solves  for  the  integer  value  of  K.  In  this 
manner  X3  is  located  between  XT(K)  and  XT(K+1).  Linear  inter- 
polation is  then  used  to  find  the  temperature  at  time  X3 . 

From  sequence  numbers  342  through  360 , the  computations  are 
continued  for  subsequent  groups  of  pulses  i.e.  L6=2 , 3 . . . INXX . 

In  each  case  the  computations  start  with  the  pulse  following  the 
last  pulse  considered,  and  end  with  the  middle  pulse  of  the 
succeeding  group.  These  temperature  contributions  are  then  summed 
for  each  of  the  previous  pulses.  The  result  is  a description  VZ 
of  the  temperature  rises  during  and  following  selected  pulses  for 
a total  of  IN • INXX  pulses. 

As  mentioned  previously  the  number  of  pulses  IN • INXX  consid- 
erably exceeds  the  number  of  pulses  IN ■ INX  in  the  exposure.  There- 
fore, for  times  exceeding  the  total  exposure  time,  one  must  subtract 
the  temperature  contributions  from  the  last  IN • (INXX-INX)  pulses. 
This  operation  is  performed  at  sequence  numbers  361  through  366. 

Corneal  Main:  Sequence  Numbers  368-424 

Here  we  compute  the  damage  caused  by  temperatures  from  multi- 
ple pulses.  Damage  is  evaluated  at  the  points  with  indices  ID(L) , 
JD(L).  For  each  point,  an  initial  estimate  is  made  of  the  factor 
CQ  by  which  the  input  laser  power  POW  is  to  be  multiplied  to  arrive 
at  the  threshold  power.  This  operation  is  conducted  from  sequence 
numbers  376  through  379.  The  relationships  used  to  estimate  CQ  are 
peak  temperature  rise  achieved  at  the  point  in  question.  Damage 
computation^  for  points  having  a negligible  temperature  rise  of 
0.001  C are  aborted  and  the  threshold  power  QD(i,j)  set  to  the 
arbitrary  value  of  10“^.  Without  this  provision  the  computer 
could  run  without  end  in  attempting  to  find  the  threshold  laser 
power . 
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Having  made  an  initial  estimate  of  the  laser  power,  the 
next  step  is  to  set  the  control  indices  LLT  and  LGT  to  0.  Later 
the  index  LLT  is  assigned  the  value  1 when  the  assumed  laser  power 
is  less  than  the  threshold  value,  while  LGT  is  assigned  the  value  1 
when  the  assumed  laser  power  exceeds  the  threshold  value.  We  will 
return  to  this  subject. 

The  damage  calculations  are  made  from  sequence  numbers  384 
through  395.  Two  criteria  are  used  to  assess  damage.  The  first 
is  the  use  of  an  arbitrary  temperature  TSTEAM.  If  the  temperature 
rise  VZ  exceeds  TSTEAM-TO , where  TO  represents  the  initial  temper- 
ature, then  irreversible  damage  is  assumed.  For  the  computer  runs 
considered,  peak  eye  temperature  is  a poor  criteria  of  damage.  The 
second  and  more  meaningful  damage  criteria  is  thermal  denaturation. 
The  latter  criterion  is  the  one  used  in  this  report.  Over  a time 
increment  of  say  At,  this  criterion  predicts  incremental  damage  Ad 
(see  page  152)  of 

A Cl  = exp  [In  C-L-C2/Ta(t)+ln  At|  (37) 


where  C ^ and  are  constants  and  l’a(t)  is  the  absolute  temperature. 
To  assess  the  incremental  damage  one  merely  sums  the  exponentials 
of  the  logarithm  of  A (2.  The  accumulated  damage  !)AMC  is  therefore 
given  by 


damc 


exp (X  1 ) 


(38) 


where  Xl  ~ In  C^-C2/Ta(t)+ln  At.  When  groups  of  pulses  are  con- 
sidered, At  is  multiplied  by  the  number  of  pulses  IN  per  group  as 
may  be  seen  by  examining  the  array  ZTT  back  at  sequence  numbers 
309,  316  and  319. 


These  damage  calculations  involve  all  ocular  media  other 
than  the  6 urn  tear  layer  over  the  cornea.  This  layer  is  not 
considered  since  it.  consists  essentially  of  water. 

After  the  damage  has  been  evaluated  for  the  assumed  laser 
power,  CQ  is  either  increased  or  decreased  by  4%  according  to 
whether  DAMC  is  less  than  or  greater  than  1,  respectively.  In 
the  process  LLT  is  set  equal  to  one  if  DAMC  <1  while  LGT  is  set 
equal  to  one  if  DAMC^l.  Once  both  LLT  and  LGT  equal  1,  the  dam- 
age calculations  are  completed  since  the  assumed  power  has  crossed 
over  the  threshold  value.  Then  one-half  of  the  last  4 7a  correction 
is  returned  to  CQ  so  that  one  can  be  assured  that  the  predicted 
value  is  accurate  to  within  2%. 

To  separate  the  predictions  of  laser  power  caused  by  the  two 
criteria,  TSTEAM  is  progressively  increased  until  the  last  two 
sets  of  power  predictions  are  the  same.  To  determine  when  this 
occurs,  one  of  the  predicted  laser  powers  is  selected  and  stored 
in  XQ  so  it  may  be  compared  with  its  subsequent  value. 

Thus,  the  last  two  sets  of  power  predictions  are  associated 
with  thermal  damage  while  earlier  predictions  indicate  the  laser 
powers  necessary  to  produce  temperature  in  excess  of  TSTEAM.  One 
word  of  caution  is  needed  at  this  point.  Damage  assessments  are 
only  made  over  the  time  TIME.  At  regions  far  removed  from  the 
region  of  greatest  energy  deposition  considerable  time  is  required 
to  heat  and  cool  such  regions  and  the  assigned  time  TIME  may  not 
be  adequate.  The  adequacy  of  the  time  may  be  judged  by  examining 
the  temperature  print-outs.  If  the  temperature  peaks  and  then 
drops  by  more  than  about  5°C.  then  the  predicted  power  is  satis- 
factory. Otherwise-,  one  should  increase  TIME  through  the  array 
FUME  and  increase  dimensions  of  arrays  containing  the  time  index  KT. 

Corneal  Main:  .Sequence  Numbers  426 -4  70 

This  section  provides  data  cards  for  plotting  the  temperatures 
at  time  specified  by  the  user.  Here  the  temperature  rises  from 
multiple  pulses  are  calculated  at  points  with  axial  indices  i ranging. 


from  111  through  TI2  and  radial  indices  j ranging  from  JJ1  through 
JJ2.  The  times  at  which  the  temperatures  are  desired  are  inputed 
by  the  user  in  the  array  TIMEX.  These  times  are  measured  from  the 
start  of  the  first  pulse  and  may  assume  any  value  from  0 to  TIME. 

In  addition  to  being  provided  with  the  temperature  rises, 
the  plotting  routine  must  know  the  range  of  the  points  over  which 
plots  are  desired  as  well  as  the  peak  temperature  rise  RGV  of 
the  profile.  Also  to  aid  in  identifying  the  curves  a provision 
has  been  included  to  label  one  of  the  curves . In  this  regard  the 
plotting  routine  will  index  the  curve  having  an  assigned  value 
T.I3  for  i. 

In  addition  to  providing  data  cards  for  plotting,  provisions 
are  also  made  for  print-outs  of  the  data.  Three  options  are  avail- 
able to  the  user.  If  KTYPE  is  assigned  a value  of  0,  then  no  cards 
or  print-outs  will  be  provided.  If  KTYPE=n  and  KTYPE0=1  the  code 
will  only  print  the  temperature  rises  at  n times  TIMEX(ii)  . Values 
of  KTYPE=n  and  KTYPEO=0  will  provide  cards  as  well  as  print-outs. 

Corneal  Main:  Sequence  Numbers  482-533 

This  portion  of  the  code  computes  the  damage  from  single 
pulses . The  basic  difference  from  the  damage  calculations  for 
multiple  pulses  is  the  use  of  the  temperatures  at  the  time  XT(K). 
Here  the  code  assesses  the  damage  from  the  KM  time  intervals,  i.e. 
XT  (2)  --XT(l)  XT(3)-XT(2),  etc.,  during  the  pulse  as  well  as  an 

additional  (KT-KM)  time  intervals  following  the  pulse.  As  with 
multiple  pulses,  damage  is  evaluated  by  using  the  temperatures 
at  the  mid-points  of  the  time  intervals.  Other  than  the  difference 
in  time  intervals  the  computations  are  identical  to  those  for 
multiple  pulse  and  the  same  observations  apply. 

Corneal  Main:  Sequence  Numbo r_s  3 3 6-360 

Here  provisions  are  made  for  preparing  data  cards  for  con- 
structing 3-d  and  2-1)  profiles  of  the  temperature  at.  selected 
locations  ami  times.  Except  fur  the  use  of  a single  pulse,  the 
computai  Lons  are  identical  to  those  used  for  multiple  pulses. 


Corneal  Main:  Sequence  Numbers  561-610 

In  the  final  portion  of  the  main  program,  the  predicted  laser 
power  QD  for  the  specified  points  are  used  to  assess  the  region 
damaged  by  the  particular  laser  power  specified  by  the  user. 

To  assess  the  axial  extent  of  the  damage,  the  computer  first 
scans  the  predicted  power  to  find  the  i indices  at  which  the  pre- 
dicted powers  bracket  the  specified  power  P0X=P0W.  For  minimum 
depth  of  damage  (low  i values)  the  indices  are  15  and  16  while 
for  maximum  depth  of  damage  (high  i values)  the  indices  are  17 
and  18.  If  POW  is  lower  than  all  the  QD(i,l),  then  16  assumes 
the  value  0 and  all  remaining  computations  are  aborted.  If  POW 
exceeds  all  the  QD(i,l),  then  the  computer  prints  out  a message 
indicating  this  fact  and  all  future  axial  computations  are  aborted. 

To  interpolate  the  depths  where  QD-POW,  the  following  equa- 
tion is  used 

QD  “ Xl*exp(X2*a)  (39) 

where  QD  represents  the  power,  z represents  the  axial  distance 
and  XI  and  X2  are  constants  to  be  evaluated.  By  substituting  the 
two  laser  powers,  say  QD^  and  QD2,  that  bracket  POW  into  Eq.  39 
along  with  their  axial  distances,  say  z ^ and  z2,  one  can  solve  the 
resultant  equations  for  XI  and  X2 . The  result  is 

XI  - QD1/exp(x2-Zl>  (4U) 

X2  = log(QD2/QD1)/(z2-z1) 

Thus,  substituting  XI  and  X2  back  into  Eq . 39,  replaciiig  QD  by  POW, 
and  solving  fur  the  threshold  depth  z yields 

z = log(P0W/Xl)/X2  (41) 

By  usiiig  the  pair  of  laser  powers  found  for  small  i values  and 
for  largo  i values,  one  arrives  at  the  minimum  and  maximum  depths 
of  damage  along  the  eye's  axis. 

Starting  at  sequence  number  590  a similar  set  of  computations 
is  made  to  assess  the  radial  extent  of  damage  for  the  depths  at 
which  the  predicted  power  exceeds  POX  or  POW.  Except  for  the  use 
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of  r instead  of  z,  the  same  analysis  is  used  as  exemplified  by 
Eqs . 39  through  41.  This  then  completes  the  descriptimi  of  the 
main  program  of  the  Corneal  model. 

7.2.2  Subroutine  GRID  for  Corneal  Model 

Subroutine  GRID  establishes  the  values  for  Z(i)  and  R(j) 
subject  to  the  values  assigned  N,  Nl,  N3 , Di  , RVL,  M,  Ml,  M2, 

M3,  TH,  and  DZ  in  the  main  program.  Also  the  subroutine  evaluates 
the  matrix  elements  A and  B for  the  finite-difference  solution  of 
the  heat  conduction  equation.  Moreover,  the  subroutine  determines 
the  location  of  the  i indices  associated  with  the  first  and  last 
points  of  each  eye  media.  Finally,  the  subroutine  stores  the 
assigned  thermal  conductivities  CON(i)  and  heat  capacities  VSH(i) 
at  the  appropriate  depths  Z(i). 

Appendix  I describes  the  techniques  used  to  develop  the 
grid  network. 

Corneal  GRID:  Sequence  Numbers  13-1.9 

Here  'he  subroutine  evaluates  the  expansion  factor  R2  by 
which  the  radial  grid  steps  are  sequentially  increased  starting 
at  j«Nl.  The  grid  is  selected  such  that  the  radial  extent  RVL 
of  the  eye  is  located  at 

RVL  = (R(N-1)+R(N) )/2  (42) 

For  more  details  the  reader  is  referred  to  Appendix  I. 

Corneal  GRID:  Sequence  Numbers  27-32 

In  this  section  the  radial  distances  of  the  radial  points 
R(j)  are  evaluated  and  assigned. 

Corneal  GRID:  .Sequence  Numbers  34-52 

Here  the  matrix  elements  B(j,l),  B(j,2)  and  B(j,3)  are  eval- 
uated for  the  finite-difference  solution  of  the  heat  conduction 
equation.  A description  of  these  elements  and  their  use  is  given 
in  Appendix  A. 

Cor neal  GRID:  .Sequence  Numbers  54-63 

This  portion  of  the  code  assesses  the  expansion  factor  R1 
for  t: lie  z grid.  Two  different  grids  are  chosen  depending  on 


82 


whether  damage  occurs  at  the  cornea  or  lens.  For  the  corneal 
case  the  anterior  tear  surface  is  located  midway  between  the 
first  uniform  increment  at  (Z  (IPl-l)HZ  (IPl)  ) /2  while  the  sixth 
eye  media  extends  to  a depth  of  Z(M3).. 

To  assess  lens  damage  the  fine  grid  work  starts  at  the  depth 
ZD(4)  of  the  anterior  surface  of  the  lens.  This  means  this  sur- 
face is  midway  between  the  first  uniform  increment  located  at 
(Z (M2+1-Ml)+Z (M2+2-M1) ) /2  while  the  anterior  surface  of  the  tear 
layer  is  midway  between  Z(3)  and  Z(4). 

Corneal  GRID:  Sequence.  Numbers  71-83 

Here  the  subroutine  computes  and  assigns  the  values  for  the 
various  Z(i)  using  the  expansion  factor  Rl. 

Corneal  GRID:  Sequence  Numbers  84-108 

Here  the  subroutine  uses  the  depths  of  the  various  interfaces 
to  locate  the  initial  and  last  grid  points  in  each  media.  The 
resulting  i values  are  stored  in  the  arrays  IX  and  LX  and  then 
assigned  to  IP2,  IP3...IP6,  LP1,  LP2...LP6. 

Corneal  GRID:  Sequence  Numbers  1 10- 127 

Here  provisions  are  made  for  the  eye  media  having  different 
thermal  conductivities  CONX  and  heat  capacities  VSHX.  To  accomo- 
date any  differences,  the  assigned  thermal  properties  are  stored 
with  depth  in  the  arrays  CON(i)  and  VSH(i). 

Corneal  CRIP:  Sequence  Numbers  129-136 

Here  the  matrix  elements  A(i,l),  A(i,2)  and  A(i,3)  are  eval- 
uated for  use  in  the  finite-difference  equations  of  the  heat  con- 
duction equatiori  discussed  in  Appendix  A.  These  elements  were 
chosen  so  that  there  is  no  heat  flow  from  the  cornea  to  the  envi- 
ronmental air.  In  this  regard,  the  effects  of  blinking  have  been 
neglected.  This  effect  could  be  important  for  pulses  in  excess 
of  0.1  sec. 

7.2.3  Subroutine  IMAGO  of  Corneal  Model 

This  subroutine  performs  two  major  functions.  These  are  to 
determine  the 
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• normalized  laser  profile  at  various  depths 
of  the  eye  (normalized  means  profiles  have 
a value  of  1 at  the  eye's  axis). 

• irradiance  QP  on  the  eye's  axis  by  which  the 
normalized  profile  HR  must  be  multiplied  to 
obtain  the  irradiance  across  the  beam  prior 
to  any  internal  reflections  or  absorption. 

The  latter  are  accounted  for  in  subroutine 
HTXDEP . 

Corneal  IMAGE:  Sequence  Numbers  10-20 

Here  the  number  of  radial  increments  is  specified  for  deter- 
mining how  the  profile  is  altered  in  depth  by  corneal  refraction. 
The  increments  have  a radius  RINT  and  extend  across  the  pupil  or 
beam  radius,  whichever  is  smaller.  The  number  of  increments  across 
the  pupil  radius  PUPIL  is  (LI-1).  The  radial  increments  RINT  are 
chosen  accordingly.  Later  if  the  beam  proves  smaller  than  the 
pupil,  the  number  of  increments  is  reduced  and  stored  in  Lll. 

Corneal  IMAGE:  Sequence  Numbers  21-22 

Any  symmetric  laser  profile  may  be  accomodated  by  the  code. 

The  most  obvious  profiles  are  the  gaussian  (IPR0F=1)  and  the  uni- 
form (IPR0F--0)  . Other  profile  shapes  may  be  bandied  by  assigning 
a value  oi  2 for  IPROF  on  data  card  6 of  the  main  program. 

Corneal  IMAGE:  Sequence  Numbers  25-41 

For  irregular  profiles  (other  than  gaussian  or  uniform),  the 
user  must  specify  the  profile's  shape  on  a point  by  point  basis. 
This  is  accomplished  by  first  assigning  the  number  of  points  LR 
on  data  card  19A . Then  the  profile  values  PX  and  associated  radial 
distances  RX  are  read  on  data  cards  19A  ■'<  and  19A***.  The  numbers 
used  to  describe  the  profile  intensities  need  only  be  relative. 

From  sequence  numbers  30  through  39  the  code  norma  .Lizes  the 
profile  values  PX  and  then  integrates  the  profile  over  it's  radial 
area.  The.  integral  of  the  normalized  profile  is  represented  by  X5 . 

Two  additional  determinations  are  made  in  this  portion  of 
the  subroutine.  The.  first  is  the  determination  oi  Lhe  irradiance 
QP  entering  the  eye.  on  the  eye's  axis.  The  second  is  to  determine 
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whether  or  not  the  profile  extends  beyond  the  pupil.  When  the 
radius  RX(LR)  of  the  profile  is  less  than  the  radius  of  the  pupil, 
the  number  of  radial  increments  LII  is  reduced  accordingly. 

Corneal  IMAGE:  Sequence  Numbers  42-51 

Here  the  magnitudes  of  the  irregular  profile  are  evaluated 
at  radial  increments  of  RiNT  and  stored  in  the  array  FX  for  future 
use . 


Corneal  IMAGE : Sequence  Numbers  57-62 

In  this  part  of  the  subroutine,  the  code  evaluates  gaussian 
profiles  at  the  points  R(j)  as  well  as  the  irradiance  QP. 


Corneal  IMACb : Sequence  Numbers  65-67 

Here  the  subroutine  stores  the  values  of  uniform  profiles  at 
R(j).  In  addition  the  irradiance  QP  is  evaluated. 


Corneal  IMAGH : Sequence  Numbers  71-95 

This  section  is  reserved  for  irregular  profiles.  Here  we 
have  avoided  interpolation  of  the  intensities  at  R(j  ) in  that  it 
could  cause  appreciable  errors  in  the  energy  deposition.  Instead 
an  evaluation  is  first  made  of  the  radial  area  and  laser  power 
between  r=0  and  the  radial  distances  (I<-5)*R1NT.  The  areas  arc 
stored  in  the  array  FA(L),  while  the  accumulated  powers  are  stored 
in  the  array  FP(L).  These  arrays  are  then  used  to  find  the  average 
intensity  of  the  laser  beam  from  (R(j -1)-R(j  ) ) /2  to  (R(j  )i-R(jH-l) ) /Z 
and  stored  in  llR(j).  Then  the  profile  is  normalized  at  sequence 
numbers  93  through  95. 


Corneal  IMACb : Sequence  Numbers  96-11 6 

In  all  the  previous  computations  the  irradiance  profile  HR 
has  the  same  shape  as  that  of  the  laser  beam  at  the  cornea.  This 
section  computes  the  alteration  of  the  profile  HR  by  corneal  re- 
fraction. A discussion  of  the  means  by  which  this  is  accomplished 
is  presented  in  Section  3.  Here  we  have  evaluated  the  array 
XCON(i,  j)  by  which  UR ( j ) is  to  be  multiplied  Lo  arrive  at  the 


the  resultant  profile  as  a function  of  depth.  The  resultant  pro- 
file becomes  more  compact  with  depth  due  to  convergence  of  the 
beam's  rays. 
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In  the  next  section  we  shall  discuss  how  subroutine  HTXDEP  utilizes 
the  arrays  HR  and  ZCON  to  compute  the  rates  of  energy  deposition 
per  unit  volume  at  each  of  the  grid  points.  For  this  purpose,  one 
must  know  the  absorption  and  reflection  coefficients  of  the  vari- 
ous eye  media. 

7.2.4  Subroutine  HTXDEP  of  Corneal  Model 

This  subroutine  assesses  the  rate  of  energy  deposition  into 
the  various  regions  of  the  eye  on  a per  unit  volume  basis.  A dis- 
cussion of  the  techniques  used  is  given  in  Appendix  F.  The  pri- 
mary advantage  of  this  analysis  is  that  the  eye's  interfaces  need 
not  coincide  with  the  boundaries  between  grid  increments. 

To  determine  the  rates  of  energy  deposition,  the  subroutine 
projects  the  beam  rays  refracted  at  the  cornea  to  all  depths  of 
the  eye.  Refraction  by  the  lens  is  not  considered  since  it  has  a 
negligibly  small  effect  on  corneal  or  lens  burns.  Due  to  corneal 
refraction  the  beam  converges  with  depth  as  may  be  seen  by  examin- 
ing Fig . 2 . 

Corneal  HTXDEP:  Sequence  Numbers  10-12 

These  statements  control  the  course  of  the  calculations. 

Initially,  the  control  index  IHT  is  set  equal  to  two  in  the  main 
program  while  QP  has  a value  exceeding  1-10  ^ . 

The  heat  deposition  rates  S(i,j)  are  evaluated  following  the 
first  entry  of  the  subroutine.  After  these  computations  are  com- 
pleted, IHT  is  set  equal  to  1 so  that  the  same  S(i,j)  values  are 
used  throughout  the  pulse.  This  means,  of  course,  that  the  laser 
power  is  constant  during  the  pulse.  Once  the  pulse  is  over,  QP 
is  set  equal  to  0 in  the  main  program  causiiig  ■ a subroutine  to 
set  IHT  and  all  the  S(i,j)  equal  to  zero.  Once  IHT  assumes  a value 
of  zero,  all  future  entries  are  aborted. 

Corneal  IITXDHP:  Sequence  Numbers  14-26 

Here  the  subroutine  sets  LZ  equal  to  the  number  eye  media  + 1. 
Moreover,  LZO  is  set  equal  to  the  number  of  eye  media  while  LZ1  is 
set  equal  to  the  number  of  interfaces  in  the  eye  and  underlying  tissue. 
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Then  the  boundaries  ZH(i)  of  the  z increments  are  evaluated,  and 
the  arrays  II,  IZ,  AB , REF  and  REFL  are  initialized  to  zero.  These 
arrays  will  be  discussed  as  they  are  evaluated. 

Corneal  HTXDEP : Sequence  Numbers  29-74 

Next  the  subroutine  evaluates  the  arrays  AB,  II,  IZ  and  ABR. 
For  details  of  this  analysis  the  reader  is  referred  to  Appendix  F. 
Here  AB(i,L)  represents  the  product  of  the  absorption  coefficient 
and  thickness  of  each  eye.  media  in  the  increment  containing  Z(i). 
The  index  L ranges  from  1 to  the  total  number  of  media  contained 
within  the  element.  To  identify  which  media  interfaces  are  located 
within  the  increments,  the  array  II(i)  is  used  to  represent  the 
number  of  interfaces  within  the  i-th  increment  plus  1,  while  IZ(i) 
is  used  to  represent  the  argument  of  the  first  interface  ZD  within 
the  increment.  The  array  ABR(i,Ll)  represents  the  sum  of  the 
AB(i,l),  AB(i, 2) .. .associated  with  each  media  between  ZH(i-l) 
and  ZD (LI) . 

In  order  to  prevent  the  possibility  of  underflow  due  to 
excessively  large  values  of  AB  or  ABR,  they  were  limited  to  .a 
value  of  10.  This  value  was  chosen  since  it  means  that  practically 
all  the  energy  will  be  absorbed  within  the  particular  element. 

Corneal  HTXDEP:  Sequence  Numbers  75-94 

In  this  portion  of  the  subroutine,  the  incoming  irradianca 
is  followed  through  each  media  to  find  rates  of  energy  deposition 
in  each  increment.  Here  X3  represents  the  irradiance  entering  an 
increment;  X2  represents  irradiance  entering  the  next  increment; 
and  X4  represents  the  irradiance  reflected  away.  To  account  for 
irradiance  changes  with  radius,  the  resultant  values  are  multiplied 
by  the.  profile  shape  HR(i,  j ) -ZC0N (i, j ) . To  arrive  at  the  rates  of 
energy  deposition  S(i,j)  per  unit  volume,  the  above  product  is 
divided  by  the  increment's  depth,  i.e.  Zll(i)-Zll(i-1) . 

To  guard  against  the  possibility  of  underflow,  S(i,j)  is  set 
equal  to  zero  whenever  the  rates  of  energy  deposition  become  ex- 
cessively small  (10-^/DPULSE  cai/cm^-sec)  . 
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Corneal  HTXDEP : Sequence  Numbers  97-120 

From  sequence  number  97  through  103,  the  reflected  intensities 
REFL  are  evaluated  for  each  of  the  interfaces.  Immediately  there- 
after, each  of  the  reflected  irradiances  are  followed  through  the 
eye  to  arri.ve  at  the  rates  of  energy  deposition  per  unit  volume 
at  each  of  the  grid  points  Z(i),  R(j).  The  results  are  then  added 
to  the  deposition  rates  from  the  incoming  beam  to  arrive  at  the 
total  rates  of  energy  deposition. 

Corneal  HTXDEP:  Sequence  Numbers  123-126 

As  mentioned  earlier,  after  the  pulse  is  over,  S(i,j)  and 
IHT  are  set  to  zero.  Thereafter,  all  subsequent  calculations  by 
this  subroutine  are  aborted. 

7.2.5  Subroutine  MX GRAN  for  Corneal  Model 

This  subroutine  is  a remnant  from  the  Retinal  model  for  asses- 
sing temperature  rises  of  PE  granules.  Since  no  particles  are 
presently  considered  in  the  Corneal  model,  the  normalized  particle 
temperature  rises  XPD(K)  have  been  set  to  one.  If  at  some  future 
date,  one  wishes  to  examine?  the  effect  of  any  particles,  one 

merely  substitutes  a modified  version  of  the  subroutine  used  in 
the  Retinal  model. 

7 . 3 Description  of  Code  for  Preparing  2D  and  3D  Illustrations 

This  code  utilizes  the  temperature  rise  predictions  from  the 
models  to  display  two  and  three  dimensional  temperature  rise  pro- 
files as  a function  of  the  radial  and  axial  coordinates , and  of 
the  times  from  the  start  of  the  laser  exposure.  Provisions  are 
made  in  the  code  for  varying  the  angles  from  which  the  profiles 
are  viewed  as  well  as  the  dimensions  of  the  profiles  . Appendix  IT 
presents  a user  manual  for  the  code  along  with  its  listing. 
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8.  MODEL  PREDICTIONS.  AND  SENSITIVITY  AND  ERROR  ANALYSES 


8.1  Model  Predictions  of  Laser  Power 
Necessary  to  Cause  Given  Lesion  Sizes 

A total  of  18  cases  were  run  covering  corneal  damage,  and  a 
total  of  32  cases  were  run  covering  retinal  damage.  In  the  corneal 
calculations,  the  laser  beam  was  refracted  at  the  cornea  so  that 
the  beam  radius  decreases  progressively  with  depth.  In  the  retinal 
studies,  the  image  was  identical  :o  that  estimated  experimentally. 
Results  of  the  two  sets  of  computer  runs  are  given  in  Tables  11  and 
12  for  the  Corneal  and  Retinal  models,  respectively. 

In  both  tables,  the  experiments  are  referred  to  by  run  numbers 
and  ordered  in  terms  of  increasing  pulse  widths.  Experimental  data 
associated  with  the  run  numbers  are  presented  in  Tables  9 and  10 
of  Section  6. 

8.1.1  Predictions  of  Comeal  Damage 

Two  criteria  were  used  to  assess  the  accuracy  of  the  Corneal 

model  --  one  involving  predictions  of  the  laser  power  necessary  to 

cause  the  given  experimental  lesion,  and  one  involving  predictions 

of  the  size  of  lesion  for  the  given  experimental  laser  power.  From 

an  examination  of  the  < orneal  results  shown  in  Table  11,  it  may  be 

observed  that  with  one  exception,  the  predicted  laser  power  always 

exceeds  the  experimental  values.  This  discrepancy  is  particularly 

-7  -8 

pronounced  with  the  short  pulse  times  of  10  to  10  sec.  The 
fact  that  the  discrepancy  is  much  greater  than  can  be  attributed  to 
errors  in  the  prediction  of  thermal  damage  suggests  the  damage  is 
caused  by  some  other  mechanism  other  than  thermal  or  that  the  es- 
timated lesion  size  is  in  error. 

One  likely  candidate  for  causing  the  damage  is  the  generation 
of  compressive  and  tensile  waves  due  to  thermal  expansion.  This 
hypothesis  is  based  on  the  fact  that  the  energy  is  delivered  in 
sufficiently  small  times  to  produce  pressure  waves  of  the  order 
of  100  psi.  The  fact  that  the  anomoly  arises  with  short  pulses 
probably  reflects  the  fact  that  when  similar  quantities  of  energy 
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are  delivered  over  longer  times,  the  pressure  waves  are  of  reduced 
intensity.  Much,  however,  remains  to  be  learned  about  the  inter- 
action of  pressure  waves  with  eye  media.  In  this  regard,  it  is 
suspected  that  to  irreversibly  damage  a particular  region  of  the 
eye,  one  need  only  damage  some  of  the  critical  components  within 
the  region  --  not  necessarily  all  components  in  the  region.  Identi- 
fication and  modeling  of  the  critical  components  is  no  simple  task. 


Neat  let  us  explore  the  fact  that  most  of  the  power  predictions 
are  higher  than  their  experimental  counterparts.  The  immediate 
thought  which  comes  to  mind  is  whether  or  not  the  depths  at  which 
damage  are  predicted  are  consistent  with  the  minimum  depth  at  which 
damage  must  occur  in  order  to  be  observable.  Unfortunately,  this 
argument  is  not  very  convincing  in  that  the  predicted  depths  of 
damage  vary  considerably  --  ranging  from  a few  microns  to  tens  of 
microns  in  going  from  short  to  loiig  pulses.  A more  likely  possi- 
bility is  that  thermal  damage  proceeds  more  rapidly  in  the  cornea 
than  in  the  retina.  This  possibility  should  be  explored  experi- 
mentally. 

Finally,  let  us  compare  the  size  of  the  experimentally  deter- 
mined lesion  with  the  lesion  size  predicted  using  the  experimental 
laser  power.  As  may  be  aiiticipated  from  the  above  discussion,  the 
predicted  lesion  sizes  are,  with  one  exception,  all  smaller  than 
the  experimentally  determined  lesion  sizes.  While  this  discrepancy 
is  not  large,  it  is  consistent  enough  to  be  of  concern.  The  cause 
of  the  excessively  small  predicted  lesion  sizes  is  probably  the 
same  as  the  cause  of  the  excessively  large  predicted  laser  power. 

In  this  regard,  it  is  suspected  that  the  rates  of  thermal  damage 
for  the  cornea  are  somewhat  larger  than  those  developed  lor  skin. 


8.1.2  1’red  let,  ions  of  Retinal  Damage 

Results  of  the  computer  runs  corresponding  to  experiments 
involving  retinal  damage  are  presented  in  Table  12.  Notice  that 
for  pulses  exceeding  1'10"7  sec.  that  the  predicted  laser  powers 
necessary  to  cause  the  specified  lesions  fluctuate  above  and 
below  their  experimental  counterparts.  Slightly  better  agree- 
ment is  had  with  the  exposures  involving  the  largest,  images. 
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■namely  run  numbers  61,  62,  64,  65,  and  66.  Over  this  range  of 
pulse  durations,  the  errors  appear  random  and  therefore  not  sug- 
gestive of  any  particular  source  of  error. 

The  next  observation  is  the  fact  that  the  predicted  power 

for  the  short  duration  pulses  (I'lO-^  sec  or  less)  are  with  one 

exception  very  low.  Here  we  refer  to  run  numbers  3,  4,  10,  19,  23, 

29,  31,  and  32.  In  these  computer  runs  the  image  radius  ranged 

2 

from  0.0025  to  0.0045  cm  at  the  1/e  point  of  a gaussian  profile. 

Much  of  the  above  discrepancy  is  believed  due  to  errors  in  the 

experimentally  determined  image  size.  For  example,  when  the 

image  size  was  calculated  for  run  number  23,  the  l/e^  image  radius 

was  predicted  to  be  0.0075  cm  rather  than  the  estimated  value  of 

0.0025  cm  used  in  Table  12.  Using  the  0.0075  cm  image  size,  the 

laser  power  was  computed  to  be  1 . 12  • 10-1  watts  which  compares  quite 

3 

favorably  with  the  experimental  value  of  0.87*10  watts  found 
experimentally.  This,  of  course,  raises  the  possibility  that  the 
discrepancies  for  the  shorter  pulses  may  in  large  part  be  attribute!  H 
to  errors  in  the  estimated  image  size.  Unfortunately,  time  did 
not  allow  this  question  to  be  explored  further.  The  fact  that  the 
major  discrepancies  occur  primarily  with  exposures  having  short 
pulses  is  consistent  with  the  observation  that  errors  in  the  image 
size  have  their  greatest  effect  on  predictions  involving  short 
pulses . 

8 .2  Sensitivity  Runs 

In  order  to  better  appreciate  the  consequence  of  parametric 
errors  on  the  predictions  of  total  laser  power,  four  representative 
single-pulse  exposures  were  first  selected  for  the  Corneal  model 
and  four  representative  exposures  were  selected  for  the  Retinal 
model.  Next,  a set  of  key  parameter,  x\»as  selected  for  study  for 
each  model,  and  estimates  made  of  the  limiting  errors  associated 
with  each  parameter.  Finally,  the  computer  codes  were  used  to 
assess  the  effect  of  the  errors  on  the  predicted  laser  power 
necessary  to  initiate  irreversible  damage  at  the  axis  of  the  eye. 
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In  these  studies,  all  parameters  were  held  at  their  nominal  values 
except  for  the  particular  parameter  being  considered.  Results  of 
the  sensitivity  analyses  are  shown  in  Tables  13  and  14  for  the 
Corneal  and  Retinal  models,  respectively. 

8.2.1  Corneal  Model 

Parameters  varied  in  the  Corneal  model  were  the  absorption 
coefficient,  thermal  conductivity  and  heat  capacity  plus  the  size 
of  the  incident  laser  beam,  and  the  rates  at  x^hich  thermal  damage 
occurs.  A description  of  the  nomina 1 and  limiting  values  chosen 
for  each  parameter  is  presented  at  the  bottom  of  Table  13. 

Four  exposures  were  used  to  assess  the  effect  of  the  limiting 
errors.  These  exposures  involved  combinations  of  small  and  large 
beam  size,  and  small  and  large  pulse  durations.  To  better  appreciate 
the  consequence  of  the  errors,  the  predicted  laser  powers  were 
divided  by  the  predicted  laser  power  for  the  case  when  all  param- 
eters are  held  at  their  nominal  values. 


Examination  of  Table  13  shows  that  errors  in  the  absorption  coeffi 
cient  have  their  greatest  effect  on  short  duration  exposures,  and 
are  of  minor  or  negligible  importance  for  long  duration  exposures. 

This  result  is  for  the  most  part  independent  of  beam  size,  and 
indicates  that  during  extended  pulses  the  differences  in  heat 
deposition  tend  to  be  negated  by  thermal  conduc tioii.  In  fact  over 
extended  exposures,  the  temperatures  are  most  sensitive  to  the 
thermal  conductivity  as  may  be  seen  by  examination  of  Table  13. 


Errors  in  the  heat  capacity  have  their  largest  effect,  for 
exposures  involving  short  pulses  and  small  beams.  This  result  is 
a consequence  of  the  very  steep  and  transient  temperature  profiles 
produced  by  the  above  exposures.  In  such  exposures,  the  temperatures 
associated  with  threshold  damage  are  higher  than  those  required  by 
longer  pulses  and/or  larger  beams.  As  a result,  errors  in  the  heat 
capacity  produce  greater  changes  in  the.  predicted  temperatures 
as  well  as  thermal  damage  for  exposures  involving  short  pulses 
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and  small  beams.  This  explains  why  errors  xn  the  heat  capacity 
have  their  greatest  effect  on  predictions  involving  exposures  with 
short  pulses  and  small  beams. 

Beam  size  is  controlled  by  the  parameter  CUT  which  describes 
the  magnitude  of  the  normalized  gaussian  beam  at  r=RIM.  Beam  size 
increases  with  the  value  of  CUT.  Errors  in  the  beam  size  have  their 
greatest  effect  on  predictions  for  exposures  involving  the  shorter 
laser  pulses.  This  result  can  be  explained  by  the  fact  that  in 
such  exposures  the  temperatures  are  highly  transient.  In  such  cases, 
damage  is  more  dependent  on  the  deposition  of  energy  than  on  its 
dissipation  by  thermal  conduction. 

Perhaps  the  most  important  parameters  studied  is  the  ra'e  at 
which  thermal  damage  proceeds  with  temperature.  Here  the  rates 
were  increased  or  decreased  by  a factor  of  100  over  the  entire  range 
of  temperatures.  At  first  glance,  one  would  suspect  that  such  a 
factor  is  excessively  large.  This  is  in  part  true  at  temperatures 
up  to  60°C  wherein  the  rates  were  determined.  Over  this  raixge  of 
temperatures,  the  factor  should  be  closer  to  10  rather  than  100. 

On  the  other  hand,  above  60°C  the  factor  of  100  is  probably  unduely 
conservative.  To  appreciate  the  significance  of  using  a factor  of 
100  one  should  examine  how  rapidly  the  rates  of  damage  change  as 
shown  in  Table  15. 

From  an  examination  of  Table  13,  it  may  be  observed  that  the 
predicted  laser  power  is  very  sensitive  to  errors  in  the  rate  of 
thermal  damage.  This  is  true  for  all  four  cases  considered. 

If  one  were  to  rate  the  parameters  in  iieed  of  more  refined 
measurement  one  would  rank  them  in  priority  as  follows: 

• Rate  of  thermal  uamage 

• Absorption  coefficient  and  beam  size 

« Heat  capacity 

• Thermal  conductivity 
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Temperature,  Ra 

°C 

te  of  Damage, 
1/sec 

Tempera  cure , 
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u 

Rate  of  Damage, 
1/sec 

=T 
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44 

1.62-10"4 

82 

1.70- 107 

46 

4.35- 10‘4 

84 

6.00- 107 

48 

1.16* 10"3 

86 

2.09 *108 

50 

3.03-10"3 

88 

7.19-108 

52 

1.57* 10"2 

90 

2.44-109 

54 

7 .08' 10"2 

92 

8.16* 109 

56 

3 . 13 • 10" 1 

94 

2.69 -1010 

58 

1.36 

96 

8.78 • 1010 

60 

5.81 

98 

2.82-1011 

62 

2.44-101 

100 

8.97-1011 

64 

1.01' 102 

102 

2.82.1012 

66 

4.08' 102 

104 

8.74. 1012 

68 

1.63* 103 

106 

2.68' 1013 

70 

6.40- 103 

108 

8.11* 1014 

72 

2.47' 104 

110 

2.43-1014 

74 

9.41' 1C4 

112 

7. 18 -IQ14 

76 

3.53' 103 

114 

2.10' 1015  ■ 

78 

1.30' 106 

116 

6.08- 1015 

80 

4.74' 106 

118 

1.74- 1016 

8.2.2  Retinal  Model 


As  with  the  Corneal  model,  four  laser  exposures  were  chosen 
to  study  the  effect  of  the  limiting  parametric  errors  on  the  pre- 
dicted laser  power  necessary  to  initiate  retinal  damage.  The 
exposures  chosen  involve  combinations  of  image  radii  of  0.0025  and 
0,0300  cm,  and  pulse  durations  of  10“^  arid  100  sec.  Parameters 
chosen  for  this  study  were  identical  to  those  chosen  for  the  Corneal 
model  except  for  the  use  of  the  image  rather  than  the  beam 
profile;  and  the  added  consideration  of  blood  flow  CFLOW  in  the 
chorio-capillaris , and  the  fraction  LIFE  of  the  pigment  epithelium 
containing  the  melanin  granules. 

As  with  the  Corneal  model,  errors  in  the  absorption  coefficieiit 
and  heat  capacity  have  their  greatest  impact  on  exposures  involving 
short  pulses.  These  results  can  be  explained  by  the  fact  that  the 
temperatures  necessary  to  cause  damage  are  higher  with  the  shorter 
pulses.  I:i  such  situations,  errors  in  the  absorption  coefficient 
and/or  heat  capacity  result  in  greater  changes  in  the  predicted 
temperature  than  achieved  with  long  duration  pulses.  The  result 
is  greater  changes  in  the  rate  of  damage  with  shorter  pulses,  and 
hence  in  predictions  of  the  total  laser  power. 

The  effects  of  errors  in  the  blood  flow  are  most  apparent;  for 
exposures  involving  large  images  and  long  pulses.  Here, long 
exposures  provide  greater  time  for  the  transport  of  heat  by  che 
blood.  On  the  other  hand,  large  images  create  less  transient 
temperatures  which  in  turn  extend  the  period  over  which  damage 
occurs  as  well  as  the  period  over  which  blood  can  remove  critical 
heat  from  those  portions  of  the  eye  being  damaged. 

Errors  in  the  fraction  RPE  of  the  pigment  epithelium  containing 
melanin  granules  are  most  important  with  short  pulses.  The  reason 
for  this  behavior  is  the  same  as  advanced  for  errors  in  the  absorp- 
tion coefficient  and  heat  capacity  --  namely  that  such  errors 
bring  about  greater  temperature  changes  with  Lhe  shorter  pulses. 


loo 


Image  size  was  varied  by  varying  the  parameter  CUT  which 
describes  the  magnitude  of  the  gaussian  profile  at  r=RIM.  In  this 
study  the  limiting  errors  were  chosen  considering  that  large  images 
are  more  precisely  known  percentage-wise  than  small  images.  Exam- 
ination of  Table  14  shows  that  errors  in  the  image  size  are  signi- 
ficant in  all  four  cases  considered,  and  are  most  important  with 
exposures  involving  small  images  and  short  pulses.  With  such 
exposures,  changes  in  the  image  size  have  their  greatest  effect 
on  the  predicted  peak  temperatures,  rates  of  thermal  damage,  and 
total  laser  power.  From  an  examination  of  Table  14,  it  may  be  ob- 
served that  errors  in  the  rate  of  damage  have  the  greatest  effect 
on  the  predicted  laser  power  --  assuming  the  estimated  limiting 
errors  are  accurate.  This  result  is  true  for  all  four  cases  considered. 

According  to  the  need  for  more  accurate  measurements,  the 
parameters  are  ranked  as  follows: 

• Rates  of  thermal  damage 

• Image  size 

• Absorption  coefficients 

• Fraction  of  PE  con  ;aining  granules 

• Thermal  conductivity 

• Blood  flow 

• Heat  capacity 

8.3  Assessment  of  Frequency  Distribution 

of  Errors  Associated  with  Predicted  Laser  Power 

Having  gained  an  appreciation  of  how  individual  errors  affect 
the  predicted  laser  power,  let  us  now  examine  the  effect  of  all  the 
errors  on  the  predicted  power.  Here  we  have  used  Beta  functions 
along  with  the  limiting  values  of  the  errors  to  arrive  at  the 
frequency  distribution  of  the  errors  for  each  parameter . Then 
these  results  were  used  along  with  the  power  predictions  from  the 
sensitivity  analysis  to  arrive  at  the  frequency  distributions 
associated  with  the  predicted  laser  power.  This  exercise  was  per- 
formed for  each  of  the  four  cases  for  each  of  the  two  models. 
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The  results  are  illustrated  by  Figs.  12  and  13  for  the  Corneal 
model,  and  by  Figs.  14  and  15  for  the  Retinal  model.  Confidence 
intervals  for  the  four  cases  of  each  model  are  presented  below 


Table  16 

CONFIDENCE  INTERVALS 
ASSOCIATED  WITH  PREDICTED  LASER  POWER 


Confidence 

Interva Is 

Exposure 

507„ 

757, 

901 

99% 

Case 

1, 

Co  me  a 

.89-1. 13 

.81-1.21 

.75-1.27 

.64-1.43 

Case 

2, 

1! 

.84-1.14 

.74-1.23 

.65-1.31 

.56-1.44 

Case 

3, 

il 

.88-1.10 

.81-1. 16 

.75-1.24 

.64-1.37 

Case 

4, 

II 

.80-1.17 

.68-1.27 

.61-1.36 

.50-1.47 

Case 

1, 

Re  tina 

.86-1.12 

.75-1.23 

.66-1.31 

.53-1.48 

Case 

2, 

1 1 

.91-1.14 

.83-1.22 

.76-1.30 

.62-1.44 

Case 

3, 

II 

.86-1.20 

.72-1.33 

.62-1.45 

.45-1.69 

Case 

4, 

II 

.92-1.13 

.84-1.20 

.78-1.28 

.65-1.40 

Here  cases  1 through  4 refer  to  the  exposures  of  Tables  13  and  14, 
reading  from  left  to  right. 

The  first  observation  to  be  noted  from  the  figures  is  that, 
the  power  predictions  are  slightly  more  accurate  with  the  shorter 
pulses  for  the  cornea  and  with  the  longer  pulses  for  the  retina. 

One  possible  cause  for  this  difference  is  uncertainties  in  the 
beam  profile  at  the  retina.  This  source  of  error  would  have  its 
greatest  effect  on  retinal  burns  produced  by  short  pulses,  and 
would  be  of  negligible  importance  for  corneal  burns.  When  this 
error  is  small,  one  would  expect  the  damage  predictions  to  be 
more  accurate  for  the  shorter  pulses.  The  second  observation  is 
that  the  power  predictions  are  slightly  more  accurate  with  ex- 
posures involving  large  Irradiated  areas  for  both  models.  One 
may  anticipate  this  result  in  that,  when  the  laser's  energy  is 
deposited  over  larger  areas,  errors  in  the  optical  data  and  thermal 
conduction  are  of  lesser  importance 
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d Power  Normalized  to  That  Obtained  for  Nominal  Values  of  Parameter 

Fig.  13  FREQUENCY  DISTRIBUTION  OF  ERRORS  IN  PREDICTED  POWER 
FOR  CORNEAL  MODEL  FOR  BEAM  SIZE  OF  0.0Z50  CM 


Predic  ted  Power  Norma lized  to  That  Obtained  for  Nominal  Values  of  Parameter 

Fig . 15  FREQUENCY  DISTRIBUTION  OF  ERRORS  IN  PREDICTED  POWER 
FOR  RETINAL  MODEL  FOR  BEAM  SIZE  OF  0.0025  CM 


As  would  be  expected  the  Corneal  model  provides  more 
accurate  power  prediction's  than  the  Retinal  model.  This  is 
attributable  to  the  fact  that  there  are  fewer  variables  in 
the  Corneal  model. 
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9.  SUMMARY  AND  CONCLUSIONS 


During  the  course  of  this  program  two  codes,  namely  the 
Corneal  and  Retinal  models,  were  developed  to  assess  the  tempera- 
tures and  thermal  damage  produced  in  eyes  by  exposure  to  lasers. 

These  models  differ  according  to  where  one  wishes  to  examine  damage. 
Corneal  or  lens  burns  are  treated  by  the  Corneal  model  while  ret- 
inal lAirns  are  treated  by  the  Retinal  model.  Computer  times  for 
the  models  range  from  about:  10  to  20  sec  on  the  UUIVAC  110c  computer. 

Predictions  of  thermal  damage  were  made  using  the  damage 
criterion  presented  in  Ref.  3 for  skin  tissues.  Two  means  were 
used  to  assess  the  capabilities  of  the  models  for  providing  ac- 
curate predictions.  These  were  to 

e assess  the  error  in  the  predicted  laser  power 
due  to  estimated  uncertainties  in  the  input 
da  ta 

• compare  model  predictions  with  experimental  results 
9 . 1 Consequence  of  Parametric  Errors 

To  assess  the  effect  of  parametric  errors  on  the  predicted 
laser  powers,  seven  key  parameters  were  chosen.  Most  sensitive 
and  those  requiring  additional  accuracy  are  in  order  of  priority, 
for  the  cornea: 

• Rates  of  thermal  damage 

• Absorption  coefficient  and  beam  size 

• Heat  capacity 

• Thermal  conductivity 

and  for  the  retina: 

• Rates  of  thermal  damage 

• Image  size 

• Absorption  coefficients 

• Fraction  of  I’K  containing  granules 

• Thermal  conductivity 

• Blood  flow 

• Heat  capacity 
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Based  on  estimated  errors  associated  with  each  parameter  two  con- 
clusions were  drawn.  These  are  that  the  accuracy  of  the  predicted 
laser  powers  is  approximately  +14-  percent  for  a 50  percent  confi- 
dence interval.  Of  all  the  parameters,  estimated  errors  for  the 
rate  of  thermal  damage  has  the  greatest  impact  on  the  predictions. 

9 . 2 Comparison  of  Model  Predictions  with  Experimental  Data 

Two  additional  means  were  used  to  assess  the  capabilities  of 
the  models  for  providing  accurate  burn  predictions.  These  involved 

1)  comparing  predicted  and  experimental  laser 
power  for  the  given  lesion  size. 

2)  comparing  predicted  and  experimental  lesion 
size  for  the  given  experimental  laser  power. 

For  the  retina,  the  agreement  between  predictions  and  experimental 

determinations  is  reasonably  good  for  pulse  durations  of  the  order 

*■  6 8 

of  10  sec  or  greater.  Poorer  agreement  is  had  for  pulses  of  10 

- 7 

to  10  sec.  The  latter  may  be  caused  by  errors  in  the  image  size. 

Of  greatest  concern  is  that  with  picosecond  pulses  (run  1 of  Table  10) , 
damage  is  inflicted  with  extremely  low  energies.  In  fact  the  experi- 
mental laser  energies  will  only  produce  temperature  rises  of  the 

_ 3 

order  of  10  C in  the  retina.  Hence  thermal  damage  may  be  dis- 
carded as  a credible  cause  of  damage  for  picosecond  pulses . The 
most  likely  cause  of  damage  is  shocks  produced  within  the  melanin 
granules  due  to  the  very  rapid  deposition  of  energy.  During  such 
short  deposition  times  the  energies  cannot  escape  either  by  thermal 
or  mechanical  means.  The  result  is  very  pronounced  concentrations 
of  energy  that  lead  to  very  steep  fronted  pressure  waves.  Whether 
or  not  such  waves  represent  a primary  cause  of  damage  remains  to 
be  seen. 

For  the  cornea,  the  predicted  laser  powers  were  almost  always 
higher  than  their  experimental  counterparts.  This  discrepancy  is 
particularly  pronounced  for  pulses  of  the  order  of  10  ^ sec  or  less. 
Here  the  predicted  laser  powers  were  some  40  to  90  times  larger  than 
the  experimental  values.  This  discrepancy  suggests  that  some  other 
damage  mechanism  other  than  thermal  is  involved,  such  as  acoustic 
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pressure  waves.  Literature  studies  (Ref.  4)  suggest  that  the 
latter  is  a credible  mechanism  of  damage.  On  the  other  hand,  the 
discrepancy  at  the  longer  pulses  suggests  that  the  rates  of  thermal 
damage  for  the  cornea  are  higher  than  those  of  the  skin. 

9 . 3 Problem  Areas 

From  the  above  results  it  should  be  apparent  that  there  is  a 
serious  need  for  information  regarding  the 

1)  rates  at  which  the  cornea  is  thermally  damaged, 

2.)  generation,  movement  and  damage  capabilities  of 
shock  waves , 

3)  generation,  movement  and  damage  capabilities  of 
acoustic  waves. 

Measurements  of  the  rates  of  thermal  damage  in  the  cornea  should 
very  substantially  improve  the  accuracy  of  the  predictions  of  cor- 
neal burns.  Such  studies  would  require  a combined  experimental 
and  analytical  effort  --  the  experiments  to  establish  the.  damage 
and  associated  temperatures  in  the  corneal  and  the  analytical  work 
to  establish  the  rates  of  thermal  damage  from  the  experimental  results 

Items  2 and  3 appear  to  be  a likely  cause  of  damage  at  the 
shorter  pulses.  To  resolve  this  question  feasibility  studies  are 
needed.  Such  studies  should  not  only  establish  whether  the  above 
discrepancies  can  be  attributed  to  pressure  waves , but  also  identify 
situations  in  which  pressure  waves  could  cause  extensive  damage. 

Only  by  knowing  the  extent  of  damage  caused  by  various  phenometia 
can  one  identify  the  prime  cause  of  damage. 
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APPENDIX  A 

COMPUTATIONAL  SCHEME  FOR  PREDICTING  EYE  TEMPERATURES 


1.  INTRODUCTION 

la  this  appendix  we  shall  describe  the  method  used  to  compute 
temperatures  within  the  eye  as  developed  by  Technology,  Inc.  (1,52) 
and  modified  by  IIT  Research  Institute.  In  essence  the  method 
involves  the  use  of  finite-difference  equations  to  assess  the  tran- 
sient temperature:’,  within  the  eye  produced  by  exposures  to  a 
laser  beam.  Because  the  usual  explicit  techniques  require  a minimum 
size  of  time  element  for  stable  solutions,  an  explicit-implicit 
alternating  direction  technique  was  used.  Here  we  shall  briefly 
discuss  the  disadvantages  of  standard  explicit  techniques  for  the 
problem  at  hand  and  then  develop  the  equations  associated  with  the 
explicit- implicit  alternating- direction,  method. 

2.  DISADVANTAGES  OF  STANDARD  EXPLICIT  TECHNIQUES 

FOR  SOLVING  FINITE- DIFFERENCE  EQUATIONS 

Explicit  techniques  involve  using  existing  temperatures  to 
calculate  future  temperatures.  While  the  equations  are  relatively 
simple,  it  is  necessary  to  use  a minimum  size  of  time  increment  to 
prevent  the  fluxes  and  temperatures  from  oscillating  with  progres- 
sively increasing  magnitudes.  These  oscillations  are  caused  by  the 
temperature  differences  and  fluxes  being  maintained  for  longer  times 
than  is  possible,  causing  exceptionally  large  or  small  temperature 
rises.  At  the  next  time  interval,  the  process  will  be  reversed  and 
exceptionally  large  temperature  rises  will  become  exceptionally  small, 
or  vice  versa. 

Pure  explicit  techniques  require  very  small  time  intervals 
and  relatively  large  computational  times  to  prevent  such  tempera- 
ture fluctuations.  The  method  described  in  this  appendix  circum- 
vents the  need  for  using  very  small  time  intervals  by  the  simultaneous 
use  of  implicit  and  explicit  techniques. 
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2.  EXPLICIT -IMP LIC IT  ALTERNATING  DIRECTION  TECHNIQUE 
FOR  SOLVING  FINITE -DIFFERENCE  EQUATIONS 

One  method  by  which  stable  solutions  may  be  achieved  by  use 
of  large  time  intervals  is  the  explicit-implicit  alternating- 
direction  technique.  This  method  is  based  on  the  work  of  Peaceman 
(2)  and  involves  the  simultaneous  use  of  present  and  future  temper- 
ature uses  to  assess  future  fluxes  and  temperature  rises.  This  is 
accomplished  by  treating  the  fluxes  explicitly  in  one  direction 
while  the  fluxes  are  being  treated  implicitly  in  the  other  direc- 
tion. At  succeeding  time  steps  the  process  is  reversed. 

3.1  Formulation  of  Equations  for  Explicit-Implicit 
Alternating-Direction  Technique 

Here  we  shall  develop  the  equations  for  the  exp lie it -imp lie it 
alternating-direction  techniques  for  polar  coordinates,  where  r 
represents  radial  displacements  and  z represents  axial  displace- 
ments. Differences  in  the  composition  of  the  eye  are  accounted  for 
by  varying  the  thermal  conductivities  and  heat  capacities  with  depth 
in  each  model.  In  order  to  account  for  blood  flow  in  the  Retinal 
model,  provisions  have  been  made  for  adjusting  the  matrix  elements 
derived  from  this  analysis.  This  subject  is  covered  in  Appendix  13 . 

Within  each  eye  media,  heat  conduction  can  be  described  using 
the  standard  heat-conduction  equation 


(p.G)  “E  = q(z,r,t)  + K 


where 

G - specific  heat 
K --  thermal  conductivity 
q = rate  of  heat  deposition  from  laser 
r = radial  distance 
t = time 

v - temperature  rise  above  initial  temperature 
x = axial  distance 
p = density 


(A- 1) 
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This  equation  provides  for  vario.lr.ions  of  thermal  conductivity 
with  depth. 

Just  prior  to  exposure  to  the  laser  beam. 


v(z,r,0)  = 0 (A- 2) 

Beyond  some  radial  and  axial  dis lance  away  from  the  region  at  which 
appreciable  energy  is  deposited,  the  temperature  rises  will  remain 
insignificant  over  the  times  in  which  damage  is  inflicted.  Moreover, 
because  the  temperatures  are  symmetric  about  the  z axis,  there  is  no 
heat  transfer  across  the  z axis.  Mathematically  these  facts  may  be 
expressed  by: 


lyp  =0  at  r = 0;  and 

v = 0 at  r = RN,  z = 0 and  z = 2*ZM  (A-3) 

where  z is  measured  from  the  outer  surface  of  the  cornea;  and  RN 
and  2'ZM  represent  radial  and  axial  distances,  respectively , beyond 
which  there  is  no  temperature  rise  during  the  times  at  which  damage 
is  being  inflicted. 

To  achieve  stable  solutions  two  sets  of  finite-difference 
equations  are  employed  to  represent  the  heat  fluxes.  The  first  involves 
treating  the  fluxes  explicitly  in  z and  implicitly  in  X,  which  is 
termed  COLUMN;  and  the  second  involves  treating  the  fluxes  implicitly  in 
z and  explicitly  in  r, which  is  termed  ROW.  For  reasons  which  will 
be  evident  later  in  this  section  each  set  of  calculations  involve 
the  use  of  two  time  steps  each  of  size  At/2,  where  At  represents 
the  time  increment  for  one  complete  cycle. 

Increments  of  z,  r and  t are  represented  by  z^^-z^,  r j -!  1 r j ’ 
and  respectively,  where  i,  j,  k = 1,2,3...,  and  where 

tj  = 0.  To  conserve  on  computational  time  the  size  of  the  special 
elements  is  progressively  increased  with  distance  from  the  region 
of  appreciable  energy  deposition  while  the  time  intervals  are 
progressively  increased  with  time. 
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Using  time  steps  of  At^/2',  . the  finite-difference  approxi- 
mations of  the  heat  fluxes  of  Eq.  A-l  are  as  follows: 

(p*c)i  f 

' [vi,j,k+k4  - ViJ,k+k3 


„ p dv 

P*C  cTE  * ~ At 


(A-4) 


q(2,r,t)  = qi>jjk+1/2 


K (lv  Ki 
r cTr  **  r . 


Vi>j+ljk+kl  vi  , j - 1 , k+lc  1 

~ L'j+1  - fj-l 


(A- 5) 
(A- 6) 
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Equations  A-4  through  A-8  hold  at  all  points  within  the  eye 
except  on  the  z axis  and  at  the  outer  surface  of  the  cornea  at  z=0 
wherein  the  radial  heat  flux  is  zero.  At  r=0 


If  hv  „ d2V 
* ^ “ K 


Ki 


vi , 2 , k+kl  ' vi , 1 , k+kl 


(A- 9) 


At  z=0,  the  following  condition  holds 


Table  A-l 


VARIATIONS  OF  TI-IE  kl,  k2,  1<3  and  k4*  WITH  THE  TIME  INTERVAL 


k Values* 

Column  Computa tions 
First  At^/2 

Row  Computations 
Second  At^/2 

kl 

1/2 

1/2 

k2 

0 

1 

k3 

0 

1/2 

k4 

1/2 

1 

* For  use  in  Eqs.  A-4  through  A-9 


Here  the  COLUMN  computations  are  performed  during  the  first  time 
interval  At^/2  while  the  ROW  computations  are  performed  during  the 
final  time  step. 

3 . 2 Formulation  of  Grid  Network 
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In  view  of  the  fact  that  much  of  the  laser's  energy  is  deposited 
within  relatively  small  regions  of  the  eye,  it  is  desirable  to  vary  • 

the  size  of  spacial  elements  so  that  small  uniform  elements  are  used  j 

in  regions  of  high  energy  absorption,  and  progressively  larger  elements  j 
are  used  for  more  remote  regions.  To  achieve  this  end  the  first  N^+l  j 

radial  grid  points  are  spaced  /\r  apart  starting  at  r = 0 wherein  the  j 

energy  deposition  is  most  intense.  Thereafter  the  spacing  is  sequentially 
increased  by  a factor  R2  for  a total  of  N intervals  or  N-)-l  grid  points. 

This  choice  of  r intervals  is  illustrated  graphically  in  Fig.  A-l  and 
mathematically  as  foiiows:  3 
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j-l-1 
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1 ^ j ^ N1 
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(A  - 11 ) J 


For  the  z axis,  a total  of  Mj+l  grid  points  are  spaced  at  uniform 
intervals  on  either  side  of  the  midpoint  z = ZM 
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GRID  SCHEME  USED  IN  FINITE- DIFFERENCE  EQUATIONS 


At  shallower  and  deeper  depths  the  spacing  is  progressively  in- 
creased by  a factor  R-^,  to  yield  a total  of  M+l  grid  points  or  M 
intervals  along  the  z axis.  This  choice  of  z intervals  is  illus- 
trated graphically  in  Fig.  A-l  and  represented  mathematically  by 


£z . (ll1) 


l-Mj-i+l 


1 =*  i § - m3 


zi+l 


“zi  = \ AZ 


i4m1 

Az-(R1)  2 1 


^-H1  + l^i^^  + M1 


^+M1  + l^i^M 


(A- 12) 


To  determine  the  various  grid  points  it  is  first  necessary  to 
specify  the  maximum  values  of  z and  r represented  by  2-ZM  and  RN , 
respectively,  along  with  the  number  of  uniformly  spaced  grid  points 
and  and  the  total  number  of  grid  spaces  M and  N.  Values  of 
the  ratios  and  R9  are  then  determined  such  that  the  proper  number 
of  increments  are  provided  within  the  distances  2'ZM  and  RN . Here 
we  shall  illustrate  the  method  for  assessing  the  ratios  for  the  case 
of  R^. 

Given  the  designated  values  for  ZM,  M^,  M,and  Az , it  is  necessary 

that 


ZM 

Az 


M/2-Mx 

M1  + 1 = ^ R1 

m=0 


,,  M/2-M-i  +1 
lll  1 - 1 

R1  "rI 
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Setting  - M-^+l  equal  to  c , and  M/2  - M^+l  equal  to  and 
simplifying  Eq.  A- 13  yields 


VRi  ‘ CP  + 1 ‘ Ri 


(A- 14) 


Taking  logarithms  of  both  sides  of  Eq.  A- 14  yields 


log(c  ‘Rx  " c + 1)  « cic‘log  Ri 


(A- 15) 


Finally  rearrangement  of  Eq . A- 15  yields 


R,  = exp 


log(cp.  Rg  - cp-H) 


(A- 16) 


In  view  of  the  fact  that  factor  is  present  on  both  sides  of 
Eq.  A- 16  it  is  necessary  to  determine  R,  by  successive  approximations. 
This  is  accomplished  by  first  setting  R^  equal  to  an  initial 
value  of  say  2, and  then  evaluating  the  right-hand  side  of  Eq . A- 16 
for  the  first  trial  value  for  R^.  If  with  this  R^,  Eq.  A- 16  is  not 
satisfied,  then  R^  is  set  equal  to  the  value  found  for  the  right-hand 
side  of  the  equation  and  the  process  repeated  until  Eq . A- 16  is  ' 
satisfied. 

To  evaluate  the  ratio  l-i^  for  the  r coordinate  one  merely  replaces 
ZM,  i,  M/2  and  /\z  by  RN,  j,  N^,  N and  Ar,  respectively.  With  these 

changes  c becomes  - N^+l  and  C|.  becomes  1!  - N.^-f-1.  ■ 

3 .3  Matrix  Representation  of  Finite- Difference  Equations 

Generally  the  most  efficient  method  for  solving  simultaneous 
finite- difference  equations  involves  the  use  of  matrix  representation 
of  the  appropriate  equations.  In  this  regard  we  arc  concerned  with 
solutions  for  two  problems  --  the  first  for  COLUMN  in  which  the  heat 
transfer  in  the  z direction  is  treated  explicitly  while  the  heat 
transfer  in  the  r direction  is  treated  implicitly;  and  the  second 
for  ROW  in  which  the  heat  transfer  in  the  z direction  is  treated 
implicitly  while  the  heat  transfer  in  the  r direction  is  treated 
explicitly. 
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To  determine  the  finite-difference  equations  appropriate  for 
each  set  of  computations  one  must  first  substitute  the  finite- 
difference  expressions  given  by  Eqs . A- 4 through  A- 9 for  the  various 
partial  derivatives  of  temperature  rise  v presented  by  Eq.  A-l. 

The  result  is  two  sets  of  finite-difference  equations  --  one  for 
COLUMN  and  one  for  ROW. 

After  collecting  like  terms  in  v.  . , one  arrives  at  the 
following  equations. 

< >LUMN : 

2f>j  • 

Ki,Bj,r  vi,j-l,k+l/2+  (Ki*  Bj,2  + ~tj^)vi,j,k+l/2 * * * * 7-  Ki-Bjj3vijj+ijk+i/2 

/a  2 . 

= Ai , 1*  vi- 1,  j ,k  (Ai,2  AtJ““)vi,j,lc  + Ai,3*vi+l,j,k  +Si,j,k+l/2 

(A- 17) 


l i 

, 1'  Vi-1,  j ,k+l  ‘ ^Ai,2  + Tit"  )vi,j,k4l  " Ai,3‘  vi+l,  j ,k-tl 

2.  C 

Ki'Bj,l’vi,j-l,k+l/2  _(Ki,Bj,2  " ■■■”irk'"i)Vi)  j ,k+l/fKi’  Bj  ,3-  vi,  j+l,k+i/: 


+ Si,j,k+l/2 


(A- 18) 


where  At|  = difference  in  elapsed  times  given  by  XT (k+1) -XT(k)  (ID)  ; 
i = 2,3. . .M;  j = 2,3. . .N;  and  where  at  the  boundaries 


2,j,k  l.j.k 

/M+.l , j , k - 0 

7k,N+l,k  = 0 


I 

f 


i 


I 


1 


( 

« 


I 

i 

i 


] 

< 


? 


i 


{ 


V 

t 


F 

r 

Vm 

I 

I 

1 

I 


i is  set  equal  to  3 to  determine  the  temperature  rises  v 
Finally,  i is  set  equal  to  M to  yield  v, 


For  the  case  of  COLUMN,  the  index  i is  held  constant  while 
the  index  j is  varied  to  yield  the  matrix  presented  in  Fig.  A-2. 
For  the  initial  time  interval  zit^/2 , i is  first  set  equal  to  2 
while  the  temperature  rises  V2  j \^+\j2  are  being  evaluated.  Then 

3 , j , k+1/2 

M,j  , k+1/2' 

For  the  case  of  ROW,  the  index  j is  held  constant  while  the 
index  i is  varied  to  yield  the  matrix  presented  in  Fig,  A-3.  For 
the  second  time  interval  At^/2,  j is  first  set  equal  to  1 while 
the  temperature  rises  v^  , are  being  evaluated.  Then  j is 
increased  to  2 while  v^  2 is  being  evaluated,  etc. 

Values  for  the  cocf flcients  A.  A.  0 A.  0 B.  . B.  and  B. 

r,l,  i,2,  i,3,  j,i,  j ,2  J } 3 

are  given  in  Table  A-2. 


c Lc  . 


3 . 4 Solution  of  Matrix  Representation  of  Finite- Difference  Equations 

Having  established  the  matrices  for  performing  the  COLUMN  and 
ROW  calculations,  the  next  step  is  the  evaluation  of  the  temperature 
rises  v.  • , . In  this  regard  it  is  important  to  observe  that  the 

^ 5 J 7 K 

coefficient  matrices  shown  in  Figs.  A-2  aiid  A-3  are  tridiagonal  in 
that  all  elements  are  zero  except  for  those  on  the  main  diagonal  and 
on  either  side  of  the  diagonal.  To  solve  these  equations,  a very 
efficient  algorithm  is  available  which  involves  an  elimination 
procedure. 


To  illustrate  this  procedure  consider  the 
of  the  equations  presented  below: 


bl 

C1 

0 

0 ... 

0” 

V1 

xi 

a2 

b2 

c2 

0 

0 

\7  0 

x2 

0 

a3 

b3 

°3 

0 

* 

— 

0 

* 

0 

a4 

b4 

• 

0 

_ 

0 

0 

ap 

b 

P_ 

V 

, p. 

X 

P_ 

simplified  version 


(A- 20) 
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The  procedure  is  as  follows.  The  first  equation,  namely 


bf-Vf  + C^.Vr,  = ^ 


(A-21) 


is  solved  for  which  is  then  employed  to  eliminate  from  the 
second  equation,  namely 


a2.v1  + b2-v2  + 


'2* 


- Xr 


(A- 22) 


The  resulting  equation  is  then  solved  for  v2  and  used  to  eliminate 
v2  from  the  third  equation,  namely 

a3‘v2  + ^3‘v3  f c3*v4  = x3  (A- 23) 


This  process  is  repeated  for  all  of  the  equations  and  results  in  the 
following  set  of  simultaneous  equations 
C1 

V1  + Fx  ‘ v2  “ D1 


v2  + Fj  • v3  = D2 


v3  + Fj  ’ v4  “ D3 


VI  + VI'VEP-1 


v 


= D, 


(A- 24) 


where 


F1  = bl»  D1  = F~’  and 


Tu  " F 

m 


F - b - a ■ C . 
m m m m- 1 


(A- 25) 


D - 
m 


x -a  • D -i 
m m in- 1 


m 


for  m = 1,2,3. . . p 
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To  solve  lor  v one  lirst  evaluates  C 


m 


in’ 


evaluates  the.  v sequentially  starting  with  v 
follows: 


D and  F and  then 
m in 

The  result  is  as 


v 


* D 


v 


P-1  Vl 


V 


p-2  “ Dp-2 


o *1 

_ P-1 

P-1 


F 


?.2zl  v 

Vl  Vi 


(A-2  b) 


v. 


~ °2  ' FJ  v3 


= IF 


c. , 


1 

FT  v: 


To  use  the  above  set  of  equations,  one  must  first  evaluate  the 
expressions  for  am,  b^,  and  cni  for  the  COLUMN  computations  presented 
by  Fig.  A-2.  and  for  the  RON  computations  by  Fig.  A-3  using  the  results 
of  Table  A-2.  Then  the  resultant  values  for  a , b and  cfi)  are  used  to 
evaluate  the  parameters  C , D and  F given  by  bq.  A-2b. 
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THERMAL  EFFECTS  CAUSED  BY  BLOOD  FLOW 
WITHIN  CHORIO-CAPILLARIS 
AND  TISSUES  SURROUNDING  EYE 


1.  INTRODUCTION 

Blood  flow  occurs  in  a diffuse  and  pulsating  fashion  through 
many  sizes  of  blood  vessels  within  the  chorio-capil laris  of  the 
eye  as  well  as  within  tissues  surrounding  the  eye.  During  and 
after  exposure  to  a laser  beam  the  flow  of  blood  shall  act  to  dis- 
sipate heat  from  surrounding  tissue  and  thereby  moderate  thermal 
damage.  Such  heat  dissipation  occurs  as  a result  of  two  effects. 
The  initial  effect  of  the  blood  is  to  act  as  a heat  sink,  while 
the  second  effect  is  to  ..transport  heat  from  regions  of  high  tempera 
ture  to  regions  of  low  temperature.  Both  effects  are  considered 
in  assessing  the  consequence  of  blood  flow  in  the  chorio-capillaris 
On  the  other  hand  blood  flow  within  tissues  surrounding  the  eye  is 
treated  purely  as  a heat  .'.ink. 

Recognizing  that  the  problem  is  inherently  complex  because  of 
the  multitude  of  blood  vessels,  some  assumptions  must  be  made  to 
achieve  tractable  solutions.  To  this  end  we  shall  assume  that 

• the  blood  reaches  the  chorio-capillaris  or  tissues 
through  the  main  blood  vessels  at  its  normal  temperature 

• the  tempera ture  of  blood  within  the  smaller  blood 
vessels  of  the  vascular  layer  equals  that  of  sur- 
rounding tissue 

• the  flow  of  blood  is  not.  altered  by  temperature  changes 

Moreover,  we  shall  consider  the  transport  of  heat  by  the  blood  in 
the  chorio-capillaris  only  along  directions  of  changing  radii. 
Axial  heat  transport  is  neglected  in  view  of  the  shallow  depth 
of  the  chorio-capillaris. 


2.  CIIORIO-CAPILLARIS 


2.1  Radial  Gria  Coordinates  lor  Analyzing  Blood  Flow  in  Chorio-Capi.  Haris 

To  remain  consistent  with  the  scheme  for  predicting  eye  tem- 
peratures described  in  Appendix  A, we  shall  use  the  same  grid  system 
shown  in  Fig.  A-l.  In  this  scheme,  temperatures  are  specified  at 
radial  distances  r^  starting  with  r^=Q  at  the  axis  of  the  eye.  To 
minimize  the  number  of  radial  elements,  the  first  Np  spacings  are 
kept  uniform  and  then  allowed  to  progressively  increase  in  size 
by  a factor  R^.  A similar  scheme  is  used  for  the  axial  elements  az . 

The  vascular  layer  is  considered  to  lie  within  the  region  of  uniform 
spacing  between  one  or  more  of  the  incremental  depths  Az . 


I 


{ 


Due  to  the  fact  that  only  a small  number  of  volume  elements  are 
in  the  vascular  layer, we  shall  utilize  explicit  finite- difference  - 

equations  to  predict  the  transport  and  loss  of  heat  caused  by  blood 
flow.  These  heat  transfer  predictions  shall  be  made  for  each  time 
interval  At^XT (k+1) -XT(10  considered  in  the  Technology,  Inc.  scheme  j 

for  predicting  temperatures.  The  result  of  this  analysis  shall  be  . 

predictions  of  the  incremental  changes  of  heat  to  each  of  the  elements  ■ 

-of  the  vascular  layer  during  each  of  the  intervals  of  time.  * 

i 

2;. 2 Representation  of  Blood  Flows  in  Chorio-Capillaris 


In  order  to  describe  the  flow  of  blood  into  and  out  of  various 
elements  of  the  vascular  layer,  the  flows  to  and  from  unit  areas  of 
the  two  boundary  surfaces  of  the  vascular  layer  will  be  represented 
by  Xlj  and  XO-j  , respectively,  variations  of  the  flows  Xlj  and 

XOj  with  radial  distance  r will  be  accounted  for  by  delineating 
the  flows  at  several  select  radial  distances.  An  illustration  of 
these  flows  is  shown  below. 
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Differences  in  the  quantities  of  blood  entering  and  leaving 
various  radial  sections  of  the  vascular  layer  will  move  either 
inward  or  outward  in  the  radial  direction.  If  the  radial  flows 
at  rj  arc  designated  by  FRj , then  the  radial  flows  are  given  by 

FRi  = 0 

1 Ry  = ( 3 /2~  3/2  ^ ’r2  ^ 

FR3  = FR?+(  XI  5/2”  X°  5/2) (r3“t'2)/2  (B-2) 


or  in  general 


FRj  = 


2 2 


^XI  n-l/2“xo  n-1/2^ ' Ac’’  (rn‘rn-'P^2 


03-3) 


Since  these  flows  pass  through  crossectional  areas  of 
Z> AO • r j 


(13-4) 


it  is  necessary  to  divide  each  flow  FK  ^ by  the  area  through  which 
it  flows  to  assess  the  rates  per  unit  area.  The  resultant  radial 
flows  per  unit  area  a t N \ arc  given  by 

FLOWR.  = FR.  /(Z-AO  -r  .) 

J J J 

j-1 


< X1n-l/2-  XOn-l/2)^n-Cl >^2>Z  ^ <B“5> 


for  j ^ 2„  These  flows  will  transport  heat  along  radial  lines. 

To  assess  the  cooling  effects  of  the  incoming  blood, one  must 
first  determine  the  blood  flows  entering  unit  volumes  of  the  ehorio- 
capillaris.  This  is  accomplished  by  dividing  the  flows  Xl^  by  the 
thickness  Z of  the  vascular  layer  to  yield 

FLOWIj  = XI j /Z  (B-6) 
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2.3  Analysis  of  Thermal  Effects  Caused  by  Blood  Flow 
in  Chorio-Capi. Haris 

In  this  section  we  shall  consider  the  thermal  effects  of 
blood  apart  from  the  effects  of  heat  conduction  treated  in 
Appendix  A.  The  results  shall  be  a description  of  the  tem- 
perature changes  caused  by  blood  flow  during  the  given  time 
interval  At^=XT(k+l)-XT(k)  . 

The  differential  equation  requiring  solution  is 


°b  r> 

r"  3r 


(r*  FLOWll'V) 


FLOWI • v -C^ 


(U-7) 


If  r ■ FLOWR  is  represented  by  FLOWX  then  Eq.  B-7  becomes 


P'G"St  = - ~ 37  (FLOWX- v)  - FLOWI  -v.Cb 


cb  0 


(B-8  ) 


In  terms  of  the  indices  i,  j,  k for  c,  r and  time  t,  respectively, 
the  finite-difference  solution  of  Eq.  B-8  is 


v . 


i,j  ,k+l/2“vi,j,k+  ,(rj+L-rj_1)  ’ 1,u0WXj  ^Vi,  j-l,k"vi,j+l,k^ 


(B-9) 


+ 


v . . i ’ (FLOWX  . ■,  -FLOWX  . 
A J-l  J 


-c -FLOWI -v 


where  c = At^ -G^/ (2 • p -C ) 


The  term  involving  the  bracket  reflects  temperature  changes  of 
the  tissue  caused  by  the  radial  flow  of  blood  while  the  last  term 
reflects  temperature  changes  of  the  tissue  caused  by  instantaneous 
heating  of  the  blood  as  it  enters  the  chorio-capillaris  through 
small  capillaries. 


Using  the  following  substitution 

RD(j)  - 

J ,]L1  J-l 


(B- 10) 


B4 


Eq . B-9  becomes 


(vi,j>k+l/2-vi>j>lc>  * VWKJVFLOWX,^.,^  - V1J+l  k) 


C,  -RD(j)(FLOWX.  ,-FLOWX. ,,)  - C.-FLOWI.  v.  . . 
LD  J ” 1 b J J i , J , k 


(B- 11) 


Within  the  Retinal  Model  the  coefficients  on  the 
of  Eq . B-ll  are  represented  by 

right-hand 

BV(j,l)  = Cb  -RD  (j  ) -FLOWXj 

(B-12 ) 

2 "BV(j ,2)  = Cb • RD ( j ) (FLOWX j -FLOWX ^ +1 ) -Cb • FLOWI . 

(B-13  ) 

BV(j,3)  = -Cb  • RD  (j  ) • FLOWX  j 

(B- 14) 

The  terms  on  the  left-hand  side  of  the  above  equations  are  to 
be  added  or  subtracted  from  the  corresponding  matrix  elements 
B(j,l),  B(j,2),  B(j,3)  and  A(i,2)  used  to  compute  the  temperatures 
(see  Appendix  A) . In  other  words 

B(j,l)  -»  B (j  , 1)+BV  ( j , 1 ) • IV  (i) 

B<j,2)  -»  B(j,2)-RV(j,2)-IV(i) 

B(j,3)  -*  B ( j ,3)+BV(j  ,3)  'lV(i)  (B-15) 

A (i,2)  ->  A(i,2)-BV(j,2)'lV(i) 


Here  IV  equals  one  when  the  point  is  in  the  chorio-capillaris  and 
equals  zero  otherwise.  Here  the  contribution  from  2'BV(j,2)  has  been 
partitioned  equally  between  B(j,2)  and  A(i,2)  for  purposes  of 
temperature  stability. 

2 . 4 Blood  Flow  in  Tissues 


In  tissues  surrounding  the  eye,  blood  is  considered  only  as 
a heat  sink.  If  XI LOW  represents  the  rate  of  blood  flow  per  unit 
volume,  then  the  rate  of  heat  loss  from  tissues  having  a tempera- 
ture rise  v.  . , is 
J-.J  -k 


C 


b 


•XFLOW-v.  - , 


(B-16) 


In  the  Retinal  model  the  coefficient  of  v is  represented  by  -2,  *BB. 


To  include  these  heat  losses  as  well  as  the  effects  of  blood  flow 
in  the  chorio-capillaris , the  matrix  elements  A and  B must  be 
changed  as  follows: 


B(j,l)  ->  3<j,l)+BV(j,l)*IV(i) 

B (j  ,2)  ->  B(j,2)-BV(j,2)-IV(i)-BB-lAB(i,j)  (B_L7) 

B(j,3)  ->  B(j,3)+BV(j,3)-IV(i) 

A (i , 2 ) ->  A (i ,2 )-BV(j  ,2)  *IV (i) -Bll  *lAB(i , j ) 

where  IAB  equals  one  when  the  point  is  in  the  tissues  surrounding 
the  eye  and  equals  zero  otherwise.  As  with  the  BV(j,2)  contribu- 
tions, 2*BB  has  been  partitioned  equally  between  B(j,2)  andA(i,2) 
to  improve  the  stability  of  the  temperature  calculations.  Otherwise, 
one  could  have  placed  the  contributions  for  A(i,2)  into  B ( j , 2 ) . 
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DECAY  OF  NORMALIZED  TEMPERA RISES 
OF  MELANIN  GRANULE?  WITH  TIME 


1.  INTRODUCTION 

Melanin  granules  are  better  absorbers  of  radiation  than 
other  media  within  the  pigment  epithelium  within  which  they  are 
situated.  As  a result  considerable  temperature  differences  can  be 
produced  between  the  granules  and  the  intervening  tissue  especially 
by  short  duration,  high -in tensity  pulses.  With  very  short  exposures, 
steam  could  be  produced  within  the  granules,  and  the  resultar>t  pres- 
sures cause  damage. 

Here  of  course  one  must  recognize  that  temperature  differences 
between  the  granules  and  intervening  media  persist  only  for  rela- 
tively short  times.  To  identify  the  laser  exposures  in  which  the 
temperature  differences  arc  appreciable,  it  is  necessary  to  predict 
the  temperature  rises,  at  and  between  granules.  In  this  endeavor, 
we  shall  restrict  the  analysis  to  very  small  volumes  of  the  pigment 
epithelium  across  which  the  transmitted  radiation  is  essentially 
constant.  Also  we  shall  neglect  energy  losses  due  to 

0 changes  of  state 

s 

a development  and  transmission  of  pressure  waves 

As  a result,  all  temperature  predictions  represent  upper  bounds 
and  should  be  ideated  accordingly. 

2.  FINITE -DIFFERENCE  EQUATIONS 

To  predict  the  temperature  rises  we  will  assume  that  the 
granules  are  cubes  which  are  located  at  the  intersections  of  a 
three  dimensional  cartesian  grid  of  equal  linear  dimensions.  An 
illustration  of  a cross  section  through  the  center  of  the  granules 
is  shown  in  Fig.  C-I.  Here  the  spacing  between  granules  is  taken 
equal  to  the  diameter  of  the  granules.  This  spacing  is  minimal 
in  that  the  diameter  of  the  granules  is  about  1 micron  while  the 
spacing  ranges  from  1.  micron  to  1.5  micron  (Ref.  1). 
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Figure  C-l  SCHEMATIC  OF  CROSS  SECTION  OF  GRANULES  ND  REPRESENTATIVE 

REGION  FOR  ANALYSIS 


For  the  case  of  maximum  spacing  one  must  add  two  additional  elements 
between  the  granules . 

Due  to  symmetry  one  needs  to  consider  only  those  elements  en- 
closed by  the  heavy  lines.  Because  of  their  relatively  small  dimen- 
sions, the  surrounding  groups  of  elements  will  be  at  essentially  the 
same  temperatures . 

To  perform  the  necessary  calculations  we  shall  employ  an  explicit 
finite-difference  analysis  since  the  computational  times  are  relatively 
small.  To  this  end  we  shall  consider  a 4*4*4  cube  of  elements  for  the 
case  of  minimum  spacing  or  a 5*5*5  cube  of  elements  for  the  case  of 
maximum  spacing.  In  addition,  volume  elements  immediately  surrounding 
the  cubes  will  be  included  as  a convenient  means  for  ensuring  that 
no  heat  is  lost  from  the  cubes. 

In  the  analysis  we  shall  consider  the  worst  case  in  which  all  the 
absorbed  energy  is  deposited  within  the  melanin  granules.  Moreover 
we  shall  normalize  the  results  by  depositing  just,  enough  heat  so  that 
if  it  were  uniformly  absorbed  without  the  granules  a unit  temperature 
rise  would  result.  This,  of  course,  simplifies  the  interpretation  and 
ultimate  use  of  the  normalized  temperatures.  To  achieve  this  end,  it 
is  necessary  that  the  total  quantity  of  heat  deposition  be 

p.C*((n-2).Ax)3*  1 (C-l) 

where: 

C = specific  heat  of  tissue 

n = number  of  elements 

Ax  = linear  dimension  of  elements 

p = density  of  tissue 

and  where  the  number  2 accounts  for  the  fact  that  the  heat  is  deposited 
only  within  elements  beneath  the  outer  ring  of  elements  and  the  number  1 
represents  the  unit  temperature  rise.  For  the  case  of  minimum  spacing 
li -6 , and  for  the  case  of  maximum  spacing  n-7. 

3 

This  heat  will  be  deposited  within  a total  of  2 elements  corre- 
sponding to  the  portion  of  the  melanin  granule  under  consideration 
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(see  Fig.  C-l)  . If  this  heat  is  deposited  in  an  increment  of 
Lime  At,  then  deposition  per  unit  granule  volume  is 

q1=p • C • ( (n-2) • Ax) 3-  1/ (8 • (Ax) 3 • At)  = p • C (n-2) 3/ (8 • At)  ' (C-2) 

Implicit  in  this  analysis  is  that  there  is  negligible  heat 
transfer  during  the  incremental  time  At.  In  the  remainder  of  this 
analysis  we  shall  discuss  how  the  resultant  temperatures  d»‘cay  with 
time  at  intervals  At. 


For  central  differences  the  appropriate  finite-difference 
equation  is 


v^+At 


. -v5 


P'C 


At  ” 


K 


t , t , t f t t 

vil- 1, j 1 ,kl  + vil,  j 1-1, kl  + vil,jl,kl-l  " 0 vil,jl,kl  + vil-KL,jl,kl 


t , t 

vil,jl+l,kl  + vil  j j 1 jlcl+1 


/(Ax) 


(C-3) 


where 

il,jl,kl  = indices  describing  the  location  of  the  element 
K = thermal  conductivity  of  tissue 
t = time 

v = temperature  rises  at  locations  and  times 
indicated  by  subscripts  and  superscripts, 
respectively. 


Prior  to  exposure  all  the  temperature  rises  v are  zero.  The  condition 
of  zero  heat  loss  is  accounted  for  by  maintaining  a zero  temperature 
gradient  between  the  outermost  elements  and  corresponding  adjacent 
elements  by  use  of  the  following  equations: 
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where  n represents  the  maximum  index  of  the  elements  and  equals  6 for 
the  case  of  mininum  spacing  and  7 for  the  case  of  maximum  spacing. 

To  ensure  computational  stability,  At  should  additionally 
satisfy  the  following  condition 


At  ^ (Ax)  . p.C/(6*K) 


(C-5) 


Predictions  of  the  temperature  rises  consists  of  first  setting  the 
vil  jl  kl  t0  zero"  1'hen  Eq.  C-3  is  used  to  evaluate  the  j^l 

for  il,jl,  and  kl  = 2,3,... N-2  using  the  previous  temperature  rises. 
Then  Fqs . C-4  are  applied  to  ensure  no  heat  loss  and  the  process 
repeated  with  the  new  temperature  rises  to  compute  the  next  set  of 
temperature  rises. 

The  result  of  this  analysis  is  normalized  temnprature  rise 
histories  of  the  granules  assuming  all  the  energy  is  deposited  with- 
in an  incremental  time  interval  of  At.  When  the  actual  deposition 
period  exceeds  At,  then  one  must 

e divide  each  cf  the  above  temperature  rises  by  the 
ratio  of  the  deposition  time/At  to  ensure  the  final 
temperature  rises  are  normalised  (i.e.  ultimate  tem- 
perature rises  of  1"C) 

• superimpose  the  resultant  temperature  rises  allowing 
l.  r differences  in  elapsed  time 

The  above  steps  arc  mathematically  illustrated  by  Eq . 32. 
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APPENDIX  D 


ASSESSMENT  OF  TEMPERATURES  CAUSED  BY  MULTIPLE  PULSES 
USING  SINGLE-PULSE  TEMPERATURE  PREDICTIONS 


1.  INTRODUCTION 

There  are  two  ways  to  compute  the.  transient  temperatures 
caused  by  multiple  pulses.  The  first  is  to  deposit  the  energies 
from  each  pulse  at  the  appropriate  times  using  the  scheme  for 
computing  temperatures  discussed  in  Appendix  A.  Unfortunately, 
this  is  not  practical  since  the  number  of  pulses  could  be  in  the 
thousands.  Moreover,  the  time  intervals  would  have  to  be  chosen 
so  they  would  correspond  to  the  beginning  and  end  of  each  pulse. 
Regular  intervals  would,  of  course,  preempt,  the  use  of  constantly 
expanding  time  intervals. 

2.  ANALYTICAL  MEANS  FOR  PREDICTING  TEMPERATURES 

CAUSED  BY  MULTIPLE  PULSES  


A more  practical  approach  may  be  arrived  at  by  examining 
the  heat  conduction  equation  for  the  temperature  rise  V given 
below. 


KV2V  + q(t)  + qb  = irC  ^ (D-l) 

where  V=0,  at  t=0 

^ - 0,  at  z— 0 for  all  r,  t 
V ->  0 , as  r,  z -*  + u;  for  all  t 

= fq0(r) » 0 c « !'-o 
I0  > t>L0 

C.V  + (’2^-  for  z values  corresponding  to 

<r  vascular  layer.  C^,C9  = constants 

depending  on  the  heat  capacity  and 
flow  of  blood . 

radial  distance 


q(t) 
% " 

and  where  r = 


t = time 

L0~  pulse  duration 

q ■=  rate  of  energy  deposition  from  laser  per 
unit  volume. 


qb=  rate  of  heat  exchange  per  unit  volume  due 
to  blood  flow 


Dl 


p = density 
C = specific  heat 
K = thermal  conductivity 
z = axial  distance 


In  order  to  examine  the  possibilities  of  making  use  of  ' 
the  computing  temperatures  caused  by  single  pulses,  let  us  consider 
that  V-^(r,z,t)  represents  the  solution  of  Eq.  1 for  a single  pulse 
of  duration  tG . If  there  are  two  such  pulses,  with  TC  representing 
the  time  from  the  start  of  the  first  pulse  to  the  start  of  the  second 
pulse,  then  the  solution  for  times  t less  than  TC  is  obviously  the 
same  as  that  of  a single  pulse. 


Once  t>TC,  the  solution  becomes 

V1(t)  + V1(t-TC)  (D-2) 

To  validate  this  solution,  let  us  replace  V of  Eq.  D-l  by  the 
above  expression.  The  result  is 

KVZV1(t)  + q(t)  + C1V1(t)  + C2|Xi(tVl^2V1(t-TC)  + q(t-TC) 

+ C1V1(t-TC)  + C2-^.l-^) 

0 r 


bVjL(t)  , ( t-TC ) 


dt 


dt 


PC 


(D-3) 


Since  V-^(t)  is  a solution  of  Eq . D-l,  the  first  four  terms  on  the 
left-hand  side  of  Eq.  D-3  equal  the  first  term  on  the  right-hand 
side.  Therefore,  eliminating  these  terms  and  replacing  the  argument 
t - TC  by  t'  results  in 


9 dVi(t')  dv-i(t') 

KVZV1(t')  + q(t')  + C1V1(t')  + C2^-  = ~ PC 


CD-4) 


To  prove  that  this  equation  holds,  it  is  first  necessary  to 
ish  that  q(t')  satisfies  the  heat  deposition  condition  for 


vn  f oKl  •?  n I 
- is  J-  J ' 


Eq.  D-l.  This  means  that  the  following  equation  should  hold: 


qQ (r) , 0 ^ t'C  to 
0 , t'>t0 


(D-5) 


At  t‘=0,  t equals  TC  which  corresponds  to  the  start  of  the  second 
pulse;  while  at  t'=tOJ  t equals  TC+t0  which  corresponds  to  the  end 
of  the  second  pulse.  Thus,  the  heat  deposition  condition  is  satisfied. 


1)2 


Let  us  now  examine  the  initial  and  boundary  conditions  asso- 
ciated with  Eq . D-l.  Since  both  conditions  hold  for  the  first 
pulse,  it  is  only  necessary  to  examine  whether  or  not  the  condi- 
tions hold  for  the  second  pulse  which  starts  at  t'=0  or  t=TC . At 
t=TC 

V1(t-TC)  - V1(0)  = 0 (D-6) 


so  that  the  initial  condition  holds.  Also  shifting  the  time  scale 
does  not  alter  either  boundary  condition,  namely  V-*0  as  r,z->+<x>und 
OV/i^z  = 0 at  z=0.  Thus,  the  expression  giveii  by  Eq . D-2  satisfies 
the  heat  conduction  equation,  and  its  initial  and  boundary  conditions. 

An  illustration  of  the  above  technique  for  evaluating  the 
temperature  rises  caused  by  two  pulses  is  illustrated  in  Fig.  D-l. 

Here  the  temperature  rises  produced  by  the  pulses  are  identical 
--  where  the  first  pulse  is  represented  by  the  solid  curve  and 
the  second  pulse  by  the  dashed  curve.  The  temperature  rise  produced 
by  both  pulses  is  represented  by  the  heavy  curve,  and  from  Eq . D-2 
equals  the  sum  of  the  contributions  from  each  pulse  at  the  appro- 
priate times. 


by  extending  the  argument  to  additional  pulses,  it  is  obvious 
that  the  temperature  rise  V(t)  produced  by  N* pulses  is  given  by 


N' 


V(t) 


V1(t-(n-l)  *TC) 


(D-7) 


where  N1  equals  the  number  of  pulses  started  prior  to  time  t.  At 
the  culmination  of  all  pulses  N,=N. 

3.  COMPUTERIZED  MEANS  FOR- PREDICTING  TEMPERATURES 
CAUSED  BY  MULTIPLE  PULSES 

Having  established  a rather  simple  technique  for  assessing 
the  temperature  rises  caused  by  multiple  pulses,  the  next  step  is 
the  selection  of  the  times  between  pulses  at  which  temperatures 
are  to  be  calculated  to  ensure  accurate  damage  assessments.  In 
this  regard  it  is  desirable  that  the  times  be  sufficiently  close 
to  ensure  accura te-  Integra tion  of  the  damage  over  time. 


D3 


CO 

tu 

CO 

X 

X 

e> 

a 


a 

P-, 

H 

H 

X 


H 

< 

X 

X 

t> 

X 


O P3 
X 

a 
w w 
x o 
crt-i 
M Ci 

SO  o 

X 04 

u x 

w 

H co 

W 
X co 
O w 
o4 
So 

O X 
hH  Ctd 

H 5 

25 

H (2 
CO  U1 
X X 

X a 

X txj 

M H 


I 

a 


<u 

5-1 

D 

(M 

•H 

X 


For  this  purpose,  five  values  of  the  temperature  rise  (as 
calculated  for  the  single  pulse  described  in  Appendix  A)  at  reg- 
ularly-spaced time  intervals  are  used  to  cover  the  period  during 
each  pulse,  and  three  values  of  the  temperature  rise  at  regularly- 
spaced  time  steps  are  u'sbd  to  cover  the  period  from  the  end  of 
one  pulse  and  the  start  of  the  next.  An  illustration  of  the  time 
steps  is  shown  by  Fig.  D-2 . Integration  of  the  thermal  damage 
is  accomplished  using  the  temperatures  at  the  midpoints  of  the 
intervals.  On  the  other  hand,  the  average  granule  temperatures 
are  calculated  at  the  end  of  the  time  intervals  to  arrive  at  the 
peak  temperatures . 


In  the  computer  codes,  the  times  from  the  start  of  each  pulse 
to  the  midpoints  of  the  ititervals  are  designated  by  ZT(L)  ; while 
the  times  to  the  end  of  the  intervals  are  designated  by  ZTX(L). 

As  may  be  observed  from  Fig.  D-2  the  index  L ranges  from  1 to  8 . 


In  the  remainder  of  this  section  we  shall  elaborate  on  the 
technique  using  the  time  intervals  ZT(L) . Measured  from  the  start 
of  the  first  pulse,  the  times  of  concern  are 


t = (N'-l)  -TC  + ZT(L) 


where  N*  ~ number  of  pulses  started  prior  to  time.  t. 
of  this  expression  into  liq.  D-7  yields 

N ' 


V1((N,-1) -TC  + ZT(L) 


(n-l)TC) 


(D-8) 

Substitution 


(D-9) 


which 


simplifies 


N ' 


to 


V^Cn-DTC  4-  ZT ( L ) ) 


(D-10) 


This  expression  describes  temperature  rises  at  times  ZT(L)  follow- 
ing the  start  of  the  N'-th  pulse.  Here,  of  course,  may  range 
over  the  number  of  pulses  N used.. 

To  evaluate  the  temperatures  following  the  exposure  at  times 
of  say  (M-l)TC  + Z'i'(L)  where  M>N,  it  is  necessary  to  consider  the 
effect  of  M hypothetical  pulses  given  by 
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V1((n-1) -TC  + ZT (L) 


(D- 11) 


M 


Z 

n=l 


Here  only  the  first  N of  the  M pulses  are  real.  In  the 
above  summation,  these  pulses  correspond  to  n-M-N+1  to  M.  The 
M-N  hypothetical  pulses  correspond  to  n=l  to  M-N.  Eliminating  the 
non-existant  contributions  from  the  M-N  hypothetical  pulses  yields 


n 

r — i 

M-N 

r- 1 

v(t)  ) V1((n-l)-TC  + 

ZT(L))  - 

/ V.,((n-l)-TC  + ZT(L)) 

n=l 

M 

2_,  Vj^n-D-TC 

n=M-N+l 

+ ZT (L) ) 

(D-12) 

In  summary,  Eqns . D-10  and  D-12  describe  the  temperatures 
at  the  intervals  ZT(L)  shown  in  Fig.  D-2  during  and  following 
exposure  to  the  laser,  respectively.  The  temperature  rises  V-^  are 
linearly  interpolated  using  the  computer  predictions  for  a single 
pulse  represented  by  vc(i.j,k)  at  the  times  XT(k)  at  the  desired 
points  Z (i)  , R(j  ) , 

As  long  as  the  number  of  pulses  is  minimal,  the  execution  times 
are  reasonably  rapid.  However,  for  exposures  involving  many  pulses 
the  executioti  times  can  become  excessive.  Excessive  computer  execu- 
tion times  are  avoided  by  evaluating  the  temperatures  and  damage 
only  at  select  regularly-spaced  pulses  when  the  number  of  pulses 
is  20  or  more.  For  example,  for  exposures  of  57  pulses  the  pulses 
are  subdivided  into  29  groups  of  3 pulses, with  the  temperature  and 
damage  evaluations  made  during  each  of  the  middle  pulses  --  i.e. 
pulses  2, 5, 8... 56.  Total  damage  is  arrived  at  by  summing  the 
damage  produced  during  each  of  the  select  pulses,  and  multiplying 
the  result  by  three  to  account  for  the  remaining  pulses. 

In  this  analysis  the  number  of  pulses  per  group  is  always  set 
equal,  to  an  odd  number  so  that  the  damage  occurring  during  the 
middle  pulse  of  each  group  is  representative  of  the  average  damage 
of  all  pulses  iti  the  group. 
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The  number  o£  pulses /group 
Total.  Number  of  Pulses 

1 to  19 
20  to  59 
60  to  99 
100  to  139 
140  to  179 
180  to  219 


is  given  be  low . 

Number  of  Pulses /Group 

1 

3 

5 

7 

9 

11 


N to  N4-39 


integer  value  of  (N/ 20)4-2 
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CHOICE  OF  TIME  INTERVALS 


1.  INTRODUCTION 

The  principal  advantage  of  the  Technology,  Inc.  scheme  is 
that  it  produces  stable  temperature  solutions  for  large  time 
intervals.  However  it  does  not  address  itself  to  the  problem 
of  choosing  time- intervals  so  that  errors  are  consistently  small. 
Choice  of  time  intervals  is  complicated  by  the  fact  that  excessively 
small  time  intervals  will  cause  unnecessarily  long  computer  times 
while  excessively  large  time  intervals  will  produce  excessive 
errors.  As  with  all  finite- difference  schemes  some  compromise 
must  be  made  between  accuracy  and  execution  times.  Specifically, 
we  are  concerned  x<rith  selecting  the  sizes  of  progressively  larger 
time  intervals  such  that  errors  are  maintained  at  some  consistently 
small  value. 


To  assess  how  the  err or r depend  on  the  time  increment  and  on 
the  dimensions  of  the  spacial  elements  we  shall  examine  the  residues 
that  were  neglected  in  approximating  the  heat  conduction  equation 
by  means  of  the  finite- difference  equations  described  in  Appendix  A. 
This  means  assessing  how  well  the  heat  conduction  equation 


r uu  _ K du 

P c dt  " 7 37 


+ K 


dZu 

17 


d 


(E-l) 


is  satisfied  by  use  of  finite- difference  approximations  of  Appendix  A 
where  C = specific  heat 

K = thermal  conductivity 
r = radial  distance 
z = axial  distance 
u = temperature  rise 
p = density 
t = time 

In  Eq.  E-l  the  temperature  rise  is  represented  by  u to  distinguish 
it  from  the  temperature  rise  v obtained  from  the  finite- difference 
solution.  Errors  in  the  finite- difference  predictions  will,  of 
course,  be 


l = v-u. 


(E-2) 


El 


2.  ANALYSIS  OF  RESIDUALS  NEGLECTED  BY  FINITE- DIFFERENCE  APPROXIMATIONS 


In  this  analysis  we  shall  consider  the  first  and  last  pair  of 
the  two  time  steps  At ^2  used  in  the  computational  scheme  described 
in  Appendix  A.  The  result  is  two  time  steps  each  of  duration  At^/2  -- 
in  which  the  COLUMN  computations  are  used  for  the  first  time  step  At^,2 
while  the  ROW  computations  are  used  for  the  second  time  step  At^.y2(  In 
each  case  it  is  necessary  to  expand  each  of  the  partial  derivatives 
of  Eq.  E-l  where  the  first  time  step  At^/2  corresponding  to  k -*■  k+1/ 2 
will  be  designated  by  At^.  Similarly  the  second  time  step  At^2 
corresponding  to  k+1/2 -*■  k+1  will  also  be  of  duration  At^. 

For  the  first  time  step  the  differential  equation  requiring 

solution  is 
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Since  the  COLUMN  computations  involve  using  existing  temperatures 
for  the  term  in  z and  future  temperatures  for  terms  in  r,it  is 
necessary  to  replace  the  last  term  of  Eq.  E-3  by 


1<  ^?"U 


+ K< 


03u 


ij  ,k 

The  result  of  the  above  substitution  is 
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Reversing  the  trine  steps  for  the  ROW  computations  for  the  second  time 
step  in  which  k+1/2  — ► k+1  yields 
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Next  it  is  necessary  to  replace  the  terms  of  Eqs . E-5  and  E-6  by 
the  following  series  expansions: 
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Substituting  Eqs . E-7  through  E-12  into  Eq.  E-3  along  with 
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for  the  COLUMN  computations.  The  corresponding  equation  Lor  the 
ROW  computations  is  obtained  by  substituting  Eqs  E-7  through  E-12 
into  Eq . E-4  to  yield 
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The  result  of  one  set  of  COLUMN  and  ROW  computations  would  be 
the  sum  of  Eqs . E-14  and  E-15.  Therefore, summing  the  two  equations 
and  replacing  the  terms  u with  v- 1 from  Eq . E-2.  results  in 
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where  the  terms  in  the  braces  and  brackets  cancel  and  where 
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Now  it  has  been  shown  (Ref.  51)  that  if 
A2y-Ck.yk  = gk  i«T  k=l , 2 . . .K- 1 with  yo-yK“0, 
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Applying  Eq.  E-22  to  Eq.  E-15  yields 
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Since  J>, . . =0,  Eq.  E-23  becomes 
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Equation  E-2.4  shows  that  errors  shall  accumulate  with  time 
depending  on  the  size  of  Ar,  Az  and  At-k  as  well  as  the  various 
derivatives  of  temperature  rise  with  respect  to  r,  z and  t.  During 
the  early  times  while  the  eye  is  being  exposed  to  the  laser, the 
derivatives  associated  with  Cr  k k and  C ^ k will  be  most  pro- 
nounced. Therefore, it  is  obvious  that  initially  Vrk  must  be  rela- 
tively small.  Subsequently,  the  time  intervals  Ar^At^^  ulay  ^e 
progressively  increased  with  time. 

In  order  to  keep  the  errors  small, the  first  time  interval 
should  be  such  that  it  satisfies  the  stability  condition  for  standard 
explicit  finite- difference  equations,  namely 


To  better  appreciate  how  rapidly  to  increase  subsequent 
intervals , let  us  examine  the  last  term  of  Eq.  E-24,  namely 
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Along  the  axis  of  the  eye, wherein  the  most  pronounced  tem- 
peratures occur, the  heat  flow  approximates  one- dimensional  flow. 
Therefore,  to  gain  an  appreciation  of  the  above  term  we  will  take 
the  second  derivative  of  the  one -dimensional  heat  conduction 
equation  with  respect  to  time.  Holding  the  thermal  properties 
constant, the  result  is 
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Using  this  relationship, the  expression  given  by  Eq.  E-26  becomes 
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For  tne  worst,  condition,  in  which  heat  is  supplied  at  a single,  depth 
at  a constant  rate, the  temperature  rises  at  the  given  depth  will 
approximate 


u - c^V  t 


(E-29) 


where  c-^  is  a constant.  Differentiating  this  equation  three  times 
with  respect  to  time  yields 


A 

at: 


<V‘l  = - 3-C;L/(8't5/2) 


(E-30) 


Substituting  Eq , E-30  into  the  expression  given  by  Eq.  E-28  along 
with  the  subscript  k and  dropping  all  the  constants  yields 

(Atk)2 

57^  (E-31) 
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In  order  to  keep  this  expression  consistently  small, it  is  necessary 
that 

At-k^c  .tk5/4  (E -32) 

where  c is  a constant.  This  result  indicates  that  one  can  expand 
the  time  intervals  very  rapidly  with  respect  to  time.  However, in 
view  of  the  various  assumptions  made  in  this  analysis.it  is  wise 
to  select  time  intervals  appreciably  smaller  than  indicated  by  the 
above  condition.  One  choice  which  has  proven  satisfactory  is  as 
follows 

Atk_j_2  ” G‘Atlc  (E-33) 

where  the  first  time  interval  is  given  by  Eq.  E-25.  Values  for 
the  constant  C used  in  this  study  ranged  from  1.1  to  1.4. 
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HEAT  DEPOSITION  ANALYSES 


1.  INTRODUCTION 

In  order  to  calculate  the  deposition  of  energy  within  the 
eye,  it  is  first  necessary  to  determine  the  laser  profile  within 
the  eye.  To  this  end  each  model  starts  with  a determination  of  the 
refraction  of  the  laser  beam  by  the  cornea  as  described  in  Section 
3.  The  result  is  a description  of  the  normalized  profile  as  a 
function  of  radius  and  depth  from  the  anterior  surface  of  the 
cornea  to  the  anterior  surface  of  the  lens.  The  resultant  irradi- 
ance  profile  is  then  used  directly  by  the  Corneal  Model  with 
appropriate  provisions  for  absorption  and  reflection  to  assess 
the  rate  of  energy  deposition  into  various  regions  of  the  eye. 

On  the  other  hand  the  Retinal  Model  utilizes  the  normalized  pro- 
file at  the  lexis  to  assess  the  irradiance  profile  at  the  retina 
as  described  in  Section  3 and  Appendix  H.  The  resultant  irradi- 
ance distribution  of  the  retinal  image  is  preserved  at  all  depths 
of  the  eye.  This  assumption  is  considered  reasonable  in  that  the 
profile  varies  only  slightly  in  and  about  the  retina  wherein  most 
of  the  energy  is  deposited. 

In  this  appendix  we  shall  illustrate  the  procedures  used  to 
compute  the  deposition  of  energy  from  these  irradiance  profiles 
at  various  depths  of  the  eye.  Key  parameters  in  this  analysis 
are  the  absorption  and  reflection  coefficients  for  the  various 
eye  medic!  and  interfaces,  respectively. 

First,  it  is  important,  to  recognize  that  it  is  not  possible 
to  locate  all  interfaces  (between  eye  media)  at  the  boundaries 
ZII(i)  if  the  z increments  are  given  by 

ZH(i)  = (Z(i-l)  + Z(i))/2  F(l) 

Only  the  more  important  interfaces  are  located  at  the  above 
boundaries.  These  include  the  front  of  the  eye  medium  for  which 
damage  is  being  evaluated  (see  Appendix  I for  a description  of 
the  grid  network). 
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Thus,  most  of  the  interfaces  do  not  coincide  with  the  bound- 
aries ZH(i).  Moreover, in  some  situations  there  can  be  more  than 
one  interface  within  a given  increment.  To  provide  for  such  even- 
tualities we  have  used  the  array  ZD(LI)  to  represent  the  depths  z 
associated  with  the  various  interfaces  between  eye  media.  The 
absorption  coefficients  associated  with  eye  medium  between  ZD(LI-l) 
and  ZD(LI)  are  represented  by  ABS(LI-l).  The  above  coordinates 
and  nomenclature  are  depicted  by  Fig.  F-l  for  a given  z increment, 
starting  at  ZH(i-l)  and  ending  at  ZH(i).  Included  are  the  products 
AB(i,L)  of  the  absorption  coef ficients  and  thicknesses  of  various 
eye  media  within  the  given  z increment.  The  products  AB(i,L)  arc 
given  by 


AB (i,  1)  - ABS(LI-l) • (ZD(LI)-ZH(i-l)) 

AB(i,2)  - AliS(Ll  ) ' (ZH(i)-ZD(Ll )) 

If  there  is  one  eye  medium  between  ZH(i-l)  and  2H(i) , then 

AB (i,  1)  = ABS(LI-l)  • (Zll(i)-Zll(i-l)) 

AB  (i  , 2)  - 0 


2.  ENERGY  DEPOSITION  FROM  INCOMING  BEAM 


To  compute  the  total  energy  deposition  within  an  increment, 
it  is  first  necessary  to  determine  the  irradiance  H(r)  at  the 
front  of  the  increment.  At  the  anterior  surface  of  the  coniea, 
the  entering  irradiance  is  represented  by 

II  (r)  = QP-lIR(r)  F (4) 


Here  r equals  the  radial  distance  R(j)  of  the  radial  grid  points, 
where  j-T,2***N3  and  QP  represents  the  irradiance  at  rr=0. 

To  arrive  at  the  rate  of  energy  deposition  into  a given  in- 
crement z,  it  is  first  necessary  to  determine  how  the  irradiance 
changes  on  passing  through  the  increment  allowing  for  absorption 
and  reflections.  For  purposes  of  simplicity,  we  shall  follow  the 
irradiance  (a  t a given  radial  distance  R(j))  through  each  of  the 
media  contained  in  the  increment  illustrated  by  Fig.  F-l.  Here 
X3  shall  represent  the  incoming  i\*radiance  ; X2  shall  represent 
the  irradiance  at  various  depths,  and  X4  shall  represent  the  sum 
of  the  reflected  irradiances. 
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After  passage  through  the  first  zone  shown  in  Fig.  F-l,  the 
irradiance  is 

X2  « X3-exp(-AB(i,l))  F(5) 

At  the  interface  at  ZD  (LI),  a portion  of  the  radiation  is 
reflected  away  given  by 

X4  = REF (LI) *X2  (6) 

After  passage  through  the  second  zone  shown  in  Fig.  F-l,  the 
irradiance  becomes 

X2  1 = ( 1-REF  (LI ) ) * X2  • exp  (-A 1’.  (i , 2 ))  F(7) 

The  net  rate  of  eiiergy  deposition  per  unit  volume  surrounding  the 
point  Z(i),  R(j)  is  therefore  given  by 

(X3-X2  ' -X4)  • H (r ) / (ZLl (i)-Zll  (i-  1) ) F(8) 

The  above  result  includes  only  the  absorption  from  the  in- 
coming beam.  In  the  next  section  we  shall  assess  absorption  from 
radiation  reflected  at  the  several  interfaces. 

3.  LRLRGY  D FRO SIT  ION  FROM  REFLECTED  RADIATION 

In  this  analysis  wc  shall  cotisider  the  radiation  to  be  re- 
flected parallel  to  the  axis  of  the  eye.  The  neglect  of  diffuse 
reflections  is  considered  of  secondary  importance  in  view  of  the 
fact  that  reflected  radiation  is  of  secondary  impor taiice  . Calcu- 
lations arc  also  simplified  by  the  neglect  of  multiple  reflections. 

To  determine  the  deposition  of  energy  from  the  reflected 
radiation,  it  is  first  necessary  to  assess  the  sums  ABR(i,LI)  of 
the  products  of  the  absorption  coefficients  and  thicknesses  of 
each  eye  media  within  each  increment  z prior  to  the  depths  at 
which  the  reflections  occur,  namely  ZD(LI).  For  the  situation 
illustrated  in  Fig.  F-l,  these  sums  are  given  by 

A DR  (i,  LI)  - A U ( i , 1 ) w9) 

ABR(i,LHT)-  AB(i,l)  +AB(i,2)  v 

To  compute  the  ratio  of  absorption  of  the  reflected  radiation,  it 
is  first  necessar-y  to  determine  the  intensities  of  the  reflected 
radiation  at  each  of  the  interfaces  ZD(LI).  At  the  first  interface, 
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ZD(i)  beneath  the  anterior  surface  of  the  cornea,  the  intensity 
of  the  reflected  radiation  REFL(2)  is 

REFL (2 ) - H(r) • (1-exp-ABS (L) ) ' REF (2)  F(10) 

At  the  third  interface  ZD(3),  the  reflected  irradiance  REFL(3)  is 

REFL  (3 ) = Il(r)*  (1-exp-ABS  (l)  ) ■ (1-REF(2))  • F(ll) 

(1-exp-ABS (2)) -REF (3) 

By  continuing  this  process,  each  of  the  reflected  intensities 
REFL (LI)  may  be  determined  for  each  of  the  interfaces. 

To  determine  the  rates  of  energy  deposition,  it  is  necessary 
to  consider  the  reflected  radiation  from  each  interface  separately 
For  example,  at  the  interface  ZD(LI)  shown  i.n  Fig.  F-l  the  reflect 
cd  irradiance  at  Zli(i-l)  from  the  ZD  (LI)  interface  is 

REFL  (LI) -exp  -A)3R  (i,  LI ) F(12) 

and  the  rate  of  energy  deposition  into  the  z increment  is 

REFL(Ll) (1-exp  -ABR(i, Ll) )/ (ZH(i) -ZH(i-l) ) F(13) 

Similarly,  the  rate  of  energy  deposition  into  the  tiext  increment 
between  Zll (i -2 ) and  Zll(i-l)  is 

REFL  (LI)  exp  (-ABR  (i  ,LI)  ) (l-exp-ABR(i-l , Ll)  }/(Zti(i-l)  -Zll  (i-2)  ) F(14) 

By  continuing  the  process  for  decreasing  i,  one  arrives  at  the 
rates  of  energy  deposition  into  each  increment  due  to  reflection 
at  ZD(LI). 

To  arrive  at  the  total  deposition,  one  merely  performs  the 
computations  for  all  interfaces  and  sums  the  results  for  each 
increment.  Then  by  dividing  the  sums  by  the  depths  Zll(i)  -ZH(i-l) 
of  each  increment,  one  arrives  at  the  rates  of  energy  dcpositioii 
per  unit  volume  at  each  of  the  grid  points  Z(i),  R(j).  The  total 
deposition,  of  course,  is  the  sum  of  the  energy  depositions  from 
the  incoming  and  reflected  beams. 
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APPENDIX  G 

OPTICAL  PROPERTIES  GF  EYES  OF  MAN  AND  RHESUS  MONKEY 
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1.  OPTICAL  PROPERTIES  OF  THE  RHESUS  MONKEY 


1.1  CORNEA 

The  rhesus  cornea  has  a refractive  index  of  1.376  so  the 
calculated  reflection  coefficient  for  light  incident'  along  the 
normal  is  approximately  2.57o  for  visible  wavelengths. 

Boettner  (6)  measured  the  transmittances  of  the  corneas  of 
young  adult  rhesus  as  shown  below.  The  total  transmittance 
includes  both  the  direct  beam  and  forward  scattered  radiation. 
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TRANSMITTANCE  OF  THE  CORNEA  OF  THE  RHESUS  MONKEY 


1.2  AQUEOUS  HUMOR 


Since  the  refractive  indices  of  the  cornea  and  aqueous  humor 
are  very  similar  (1.376  and  1.336)  the  reflection  coefficient  for 
normal  incidence  can  be  calculated  as  approximately  0.027,  for  visible 
wavelengths , 

Boettner's  (6)  measurements  of  the  transmission  of  the  rhesus 
aqueous  humor  are  shorn  in  Figure  G-2.  There  is  no  forward  scat- 
tering, nor  is  the  transmission  age  dependent. 
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DIRECT  TRANSMITTANCE  OF 
THE  AQUEOUS  HUMOR 
OF  THE  RHESUS  MONKEY 


Wavelength  (nm) 

Figure  G-2  TRANSMITTANCE  OF  THE  AQUEOUS  VIDMOR  OF  THE 
RHESUS  MONKEY 


1.3  LENS 

Since  the  lens  has  a graded  density  the  reflection  from  its 
surfaces  is  minimized.  Calculation  shows  that  for  a lens  cortex 
refractive  index  of  1.386  and  for  aqueous  and  vitreous  regions  both 
1.336,  the  reflection  from  each  surf  ce  is  only  approximately 
0.034%  for  visible  wavelengths.  The  transmittances  of  the  rhesus 
monkey  lens,  with  and  without  forward  scattering,  measured  by 
Boettner  (6)  are  shown  in  Figure  G-3. 
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Figure  G-3  TRANSMITTANCE  OF  THE  LENS  OF  THE  RHESUS  MONKEY 


1 . 4 VITREOUS  ROPY 

The  transmission  of  the  rhesus  vitreous  body  shown  in  Figure 
G-4  is  due  to  Boettner  (6)- 


Wavelength  (mi) 

Figure  C-4  TRANSMITTANCE  OF  THE  VITREOUS  HUMOR 
OF  THE  RHESUS  MONKEY 


1.5  OCIJT.AR  MEDIA 


The  foregoing  measurements  by  Boettner  (6)  on  the 
components  of  the  ocular  media  are  summarized  in  Table 
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Table  G-l 

TRANSMITTANCE S OF  THE  INDIVIDUAL  OCULAR  MEDIA  OF  RHESUS  MONKEY  (%) 


Wavelength 

(nrn) 

Cornea 

Aqueous 

Direct 

Lens 

Vitreous 

Direct 

Total 

Direct 

Total 

Direct 

Total 

200 

< 0.1 

220 

.2 

240 

2.5 

260 

1.5 

280 

< 0.1 

<0.1 

2.0 

< 0.1 

< 0.1 

500 

10. 

16. 

40. 

< 0.1 

0.5 

15. 

15- 

520 

34. 

54. 

70. 

5. 

9. 

82. 

90. 

340 

45. 

67.5 

80. 

1. 

3. 

88.5 

93- 

360 

51.5 

74. 

84. 

.5 

1. 

90.5 

94.5 

380 

54. 

80. 

87.5 

.5 

1. 

92-5 

96. 

400 

67.5 

83.5 

89. 5 

2. 

10. 

93-5 

97. 

420 

60.5 

96. 

91.5 

35. 

62. 

94. 

97.5 

440 

63. 

88. 

93- 

71. 

90.5 

95. 

97.5 

460 

65. 

90. 

93-5 

82. 

93- 

95.5 

98. 

480 

6?. 

91. 

94.5 

84.5 

95.5 

96. 

98. 

500 

69. 

91.5 

95. 

86.5 

96.5 

96.5 

98. 

550 

73-5 

92.5 

96.5 

87.5 

97-5 

97. 

98. 

6oo 

77. 

94. 

97.5 

89. 

97  5 

97-5 

98. 

650 

79. 

94.5 

97.5 

89.5 

98. 

97.5 

93. 

700 

31. 

95. 

97.5 

90. 

98. 

97- 

98. 

750 

82.5 

95. 

90. 

90.5 

97- 

98. 

800 

84. 

98. 

90.5 

98.5 

850 

85. 

97-5 

91. 

97- 

900 

86. 

97. 

91. 

98.5 

950 

86. 

95. 

89. 

80. 

980 

85.5 

90.5 

83. 

57. 

1000 

85.5 

88. 

85-5 

83.5 

1100 

87. 

90.5 

83. 

77. 

1200 

86. 

70 -5 

68.5 

22.5 

1300 

83.3 

65. 

70. 

23. 

1400 

38.0 

0.5 

5. 

< 0.1 

1445 

20. 

0.1 

0.1 

1500 

58. 

0.5 

0.5 

1600 

66. 5 

1 ‘.5 

16.5 

1700 

66.5 

19. 

18.5 

- 

b 

1800 

58. 

7. 

9.5 

1900 

0.5 

< 0.1 

< 0.1 

1950 

0.5 

2000 

2.0 

2100 

22.5 

2200 

52. 

2300 

23. 

2400 

16.5 

2500 

0.5 

r • 

\ i 
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Table  G-2  shows  the  percentage  of  the  light  incident  on  the 
cornea  which  penetrates  through  the  rhesus  monkey’s  eye  to  the 
anterior  surface  of  each  component  of  the  ocular  media.  These  are 
values  computed  using  Table  G-l.  The  column  headed  "retina"  shows 
the  percentage  transmission  of  the  whole  ocular  media. 


Table  G-2 


TRANSMISSION  THROUGH  THE  OCULAR  MEDIA  OF  THE  RHESUS  MONKEY  (%) 


Wavelength 

(nm) 

Aqueous 

Lon 

tj 

v itreous 

Seti 

r.a 

Direct 

7ot.il 

Direct 

Total 

Vi  -cct 

To ; 1 1 

Direct 

To  til 

2fi0 

< 0,1 

< 0.1 

0.0 

300 

10. 

16. 

4. 

8.5 

0.0 

< 0.1 

0.0 

0.0 

J20 

33. 

53. 

23. 

38. 

1.0 

3.5 

0.8 

3.0 

34o 

44. 

66. 

35. 

53. 

0.4 

1.5 

0.3 

1.5 

360 

30. 

72. 

42. 

60.5 

0.2 

0.6 

0.2 

0.6 

380 

52.8 

78. 

46. 

68. 

0.2 

0.7 

0.2 

0.7 

1(00 

66. 

Si. 5 

59. 

73. 

1.0 

7.5 

1.0 

7.5 

420 

59. 

94. 

54. 

86. 

19. 

53.5 

18. 

52. 

44o 

61.5 

86. 

57. 

60. 

40.5 

72.5 

38.5 

70.5 

it  Co 

63.5 

88. 

59.5 

82.3 

49. 

78.5 

47. 

73. 

4 80 

85.5 

89. 

62. 

64. 

52.5 

60. 

50.5 

78.5 

500 

67.3 

89.5 

64. 

85. 

55.5 

82. 

53-5 

80.5 

wo 

71.5 

90.3 

69. 

87-5 

60.5 

65.5 

58.5 

04. 

600 

73- 

92. 

73. 

89.5 

85. 

87. 

63.5 

85 . 3 

650 

77. 

92.5 

75. 

90- 

67. 

88. 

65.5 

86. 

700 

79. 

93. 

77. 

90.3 

89.5 

83.5 

67.5 

86.3 

730 

80.5 

93. 

79. 

91. 

71.5 

89.3 

Boo 

82. 

80.3 

73. 

70.5 

C50 

83. 

81. 

73-5 

71.5 

900 

84. 

81.5 

74. 

71.5 

930 

84. 

80. 

73. 

58.5 

980 

83.5 

75.5 

82.5 

35.5 

1000 

83.5 

73.5 

85. 

40. 

1100 

85. 

77. 

68. 

52.5 

1200 

84. 

59. 

40.5 

9. 

1300 

81.5 

53- 

37. 

8.5 

11(00 

37- 

18.5 

3-5 

0.0 

lit ‘15 

19.5 

< 0.1 

0.0 

3300 

37. 

0.2 

0.0 

1600 

63. 

8. 

1.5 

1700 

85. 

22.3 

2.0 

1800 

56.5 

4. 

0.4 

IpOO 

0.3 

< 0.0 

< 0.0 

1980 

0.5 

20CQ 

2. 

2300 

22. 

2200 

31. 

2 >00 

22.5 

'StCO 

16. 

2300 

0.5 
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The  data  shown 
below  in  Table  G-3 . 
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Figure  G-5,  due  to  Geeraets  and  Berry  (9)  shows  their 
measurements  on  the  transmission  of  the  whole  ocular  media  of 
the  rhesus  monkey  with  a comparison  with  the  rabbit  and  man. 


Figure  G-5 


TRANSMISSION  THROUGH  THE  OCULAR  MEDIA 
FOR  RHESUS  MONKEY,  MAN,  AND  RABBIT 


1.6  FUNDUS 

Figure  G-6 , due  to  Boettner  (6),  shows  the  transmission  of 
the  nervous  retina  of  the  rhesus  monkey,  without  the  pigment 
epithelium. 


40M0  4 


TRANSMITTANCE  OF  THE  RETINA 
OF  THE  RHESUS  MONKEY 

TOTAL  TRANSMITTANCE,  1-tFT  ORDINATE 

DIRECT  TRANSMITTANCE,  RIGHT  Of  (DIM  ATE 


lents  of  the  transmit  La- 
in plus  choroid  arc  she 


REFLECTANCE  OF  THE  FUNDUS  AND  SCLERA  OF  THE  RHESUS  MONKEY 


The  reflectance  of  the  sclera  of  the  rhesus  monkey  is  shown 
in  Figure  G-8  and  Table  G-4.  These  measurements  are  due  to 
Boettner  (6).  No  other  scleral  measurements  on  the  rhesus  monkey 
have  been  found  in  the  open  literature. 


Table  G-4 

REFLECTANCE  07  SCLERA  AND  FUNDUS  PLUS  SCLERA  FOR  RHESUS  MONKEY  (7„) 


Wavelength 
(vini ) 

Fundus 

Sclera 

400 

0.8 

36. 

450 

0.5 

500 

0.3 

32.5 

550 

0.3 

30. 

600 

0.4 

26.5 

650 

0.8 

24. 

700 

1.5 

23. 

750 

2.3 

24. 

800 

3.1 

25. 

850 

4.3 

25. 

SCO 

5.8 

24.5 

950 

8. 

23.5 

1000 

10.5 

2.4. 

HOC 

22.5 

26. 

1200 

20.5 

21.5 

1500 

20.5 

21.5 

1400 

5. 

7.5 

1445 

2. 

2.5 

1500 

5. 

4. 

l600 

6. 

10. 

1700. 

7- 

10. 

1000 

4.5 

5. 

1900 

1.5 

1.5 

2000 

1. 

1. 

2100 

1. 

.1 . 

Figure  G-9  due  to  C-eeraets  and  Berry  ( 9 ) shows  the  spectral 
reflection  from  the  rhesus  monkey  fundus,  with  data  on  the  rabbit 
and  man  shown  for  comparison. 


Figure  G-9  PERCENT  REFLECTION  FROM  P.E.  PLUS  CHOROID 
FOR  MAN,  RABBIT  AND  RHESUS  MONKEY 

Figure  G-10,  from  the  same  source,  shows  the  absorption  in  the 
complete  fundus. 


Figure  G-10  ABSORPTION  IN  THE  COMPLETE  FUNDUS 
OF  RHESUS  MONKEY 
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The  total  transmission  data  of  Tables  G-3  and  G-4  have  been 
used  to  compute  the  absorption  coefficients  of  the  nervous  retina 
and  of  the  combined  P.E.  and  choroid,  as  shown  in  Table  G-5.  It 
is  truncated  at  1500  nm  since  the  transmission  of  the  O.M.  has 
fallen  to  zero  by  then.  The  computation  is  based  upon  a thickness 
of  190  ym  for  the  P.E.  + ChCp  + Gh  and  300  ym  for  the  nervous 
recina,  the  latter  being  an  arbitrary  choice. 

In  Table  G-3  the  transmission  of  the  choroid  at  500  ym  is 
shown  as  117c.  This  is  assumed  to  be  an  error  and  a figure  of  1% 
has  been  abstracted  from  Figure  G-7 . The  reflection  of  the  inter- 
face between  the  vitreous  body  and  nervous  retina  was  assumed  to 
be  zero. 


Table  G-5 

ABSORPTION  COEFFICIENTS  DERIVED  FROM  BOETTNER'S 
DATA  FOR  THE  RHESUS  MONKEY 

Wavelength  Absorption  Coefficients  (cm  ) 

(™i)  N.R. P.E.  & Ch . 


0.4 

15.9 

Above  24 

0.45 

11.0 

242 

0.5 

7.2 

242 

0.6 

5.6 

221 

0.7 

5.4 

193 

0.8 

5.6 

151 

0.9 

5.8 

113 

1.0 

5.4 

87 

1.1 

7.0 

68 

1.2 

6.2 

59 

1.3 

11.4 

51 

1.4 

31.0 

59 

1.445 

- 

67 

1.5 

35.0 

64 

The  Geeraets  and  Berry  (1968)  data  (Figs.  G-5,  G-9  and  G-10) 
have  been  used  to  derive  absorption  coefficient  for  the  whole  fundus 

of  the  rhesus  monkey.  This  has  been  possible  in  two  ways  firstly, 

by  using  data  on  the  transmittance  of  the  ocular  media,  the  reflec- 
tance of  the  fundus  and  the  combined  absorption  plus  scatter  plus 
reflection  of  the  fundus.  Secondly,  the  calculation  has  been  made 
using  Geeraets  computed  value  for  absorption  in  the  fundus,  combined 
with  the  O.M.  transmission  and  fundus  reflection  data.  These  should 
be  equivalent  methods,  but  the  Geeraets  absorption  data  is  not 
consistent  with  the  data  from  which  it  is  ostensibly  derived.  An 
additional  source  of  error  arises  because  of  the  inaccuracies 
occurring  when  values  are  read  from  several  curves  then  subtracted. 
Neither  method  has  yielded  usable  values  for  1400  nm  or  over  the 
range  400-600  nm,  and  large  uncertainties  remain  in  the  range 
700-1000  nm. 


Table  G-6 


ABSORPTION  COEFFICIENTS  OF  THE  RHESUS  MONKEY  FUNDUS, 
DERIVED  FROM  THE  DATA  OF  GEERAETS  AND  BERRY 


Wave  length 

Absorption  Coefficients  (cm  ^) 

(nm) 

Method  1 

Method  2 

0.7 

- 

195 

0.8 

229 

184 

0.9 

130 

127 

1.0 

89 

107 

1.1 

64 

88 

1.2 

41 

49 

1.3 

45 

48 

GIG 


The  open  literature  contains  no  transmittance  data  for  separate 
P.E.  and  Ch  so  the  only  available  absorption  coefficients  for  these 
tissues  are  those  derived  using  Coogan's  data  (5).  These  are  tabu- 
lated below,  including  data  for  the  whole  fundus. 

Table  G-7 

ABSORPTION  COEFFICIENTS  OF  THE  RHESUS  FUNDUS 


Absorption  Coefficients  (cm 

Wavelength  Pigment  Epithelium  (PE)  Choroid  (ch)  PE+ChCp+Ch 

(nm)  12  microns  thick  168  microns  thick  190  microns  thick 


400 

1852 

187 

210 

476.2 

1622 

189 

193 

500 

1545 

169 

189 

514.5 

1485 

166 

186 

520.8 

1460 

164 

186 

530 

1425 

163 

184 

568.2 

1294 

165 

176 

600 

1194 

151 

173 

647 . 1. 

1108 

145 

167 

700 

1019 

140 

16C 

1000 

434 

110 

108 

1064 

358 

108 

99 

1100 

313 

107 

94 

The  absorption  coefficients  were  calculated  using  Coogan's 
transmission  data  for  the  nominal  thicknesses  listed.  These  values 
could  be  in  error  by  as  much  as  15  to  20  percent. 

Figure  G-13  shows  graphically  a comparison  between  the  absorp- 
tion coefficient  computed  from  the  various  sources,  for  the  rhesus 
monkey  (P.E.  plus  choroid).  Included  in  Fig.  G-ll  are  the  results 
of  Table  G-7,  as  well  as  their  range  of  values. 


Absorption  Coefficients,  cm 


Wavelength,  (Jim 

Figure  G-ll  COMPUTED  SPECTRAL  DEPENDENCE  OF  THE  ABSORPTION 
COEFFICIENTS  (see  text) 


2.0  OPTICAL  PROPERTIES  OF  MAW 


PERCENT  TRAN'SW! 


2 . 2 AQUEOUS  HUMOR 


The  aqueous  humor  shows  no  age  effect  and  no  forward  scattering 
The  spectral  transmittance  of  the  human  aqueous  humor  as  measured 
by  Boettner  (6)  is  shown  in  Figure  G-13. 


AQUEOUS  HUMOR 

DIRECT  TRANSMITTANCE 


400  500  600  800  1000  1200 

WAVELENGTH  (nm) 


1600  2000 


Figure  G-13  TRANSMITTANCE  OF  THE  AQUEOUS  HUMOR  OF  MAN 


2.3  LENS 

The  human  lens  increases  in  optical  density  with  age, 
particularly  at  the  shorter  wave  length.  This  appears  to  be 
due  to  yellowing  of  the  lens  with  age  due  to  increasing  pigmenta- 
tion. The  density  plot  below  is  due  to  Cooper  and  Robson  (34). 

It  is  plotted  to  emphasize -the  density  in  the  UV. 


Figure  G-14  DENSITY  SPECTRA  OF  INTACT  HUMAN  LENSES  OF 
VARIOUS  AGES.  THE  AGE  IN  YEARS  IS  SHOWN 
AGAINST  THE  CURVES. 
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Said  and  Weale  (35)  shows  an  optical  density  plot  shown  in 
Figure  G-15  scaled  to  show  the  effect  of  age  upon  transmission  in 
the  visible.  The  crosses  on  this  plot  show  the  mean  of  measure- 
ments on  two  lenses,  48  and  53  years  old. 


*C>0  500  &0O  TOO 

(nm) 

Figure  G-15  SPECTRAL  DENSITY  CURVES  OF  SOME  ENGLISH  LENSES 
OF  DIFFERENT  AGES 


PERCENT  TRANSMITTANCE 


2.4  VITREOUS  BODY 

Boettner's  (6, 10)  data  shown  in  Figure  G-17  show  the  trans- 
mittances  of  the  human  vitreous  body,  both  witn  and  without  the 
forward  scattered  light.  Boettner  reported  the  possibility  that 
the  vitreous  humor  may  have  been  contaminated  with  pigment,  lower 
ing  the  values  obtained  for  direct  transmission. 


VITREOUS  HUMOR 

— TOTAL  TRANSMITTANCE 

— DIRECT  TRANSMITTANCE 


300  400  500  600  800  1000  IE00  160' 

Y/AVE LENGTH  (m) 

Figure  G-17  TRANSMITTANCE  OF  THE  VITREOUS  HUMOR  OF  MAN 


P ERGEN 


Using  the  data  of  Table  G-8,  Bcettner  has  computed  the  percentage 
of  the  light  incident  on  the  human  cornea  which  was  transmitted 
through  to  the  anterior  surfaces  of  the  aqueous,  lens,  vitreous 
and  retina.  The  results  are  shown  in  Figure  G-18  for  direct 
transmittance,  excluding  forward  scattering,  for  a young  eye. 


DIRECT  TRANSMITTANCE  Ai  rrii 
VARIOUS  ANTERIOR  SURFACES 


AQ’JEOUS 


VITREOUS 

RETINA 
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Here  the  total  transmittance  for  a young  human  eye  is  shown 
in  Figure  G-19  including  the  forward  scattered  radiation.  The 
results  were  computed  rather  than  measured . The  data  allow  for 
the  reflection  losses  at  the  air-cornea  interface. 

The  data  of  Figures  C-13  and  G-19  are  presented  in  tabular 
form  in  Table  G-9 . 
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TOTAL  TRANSMITTANCE  AT  TH: 
VARIOUS  ANTERIOR  SURFACES 


1 AQUEOUS 

2 LENS 


VITREOUS 

RETINA 


400  COO  600  800  1000  1200 

WAVELENGTH  (ran) 


1600  2000 


Figure  G-19  CALCUJATED  TOTAL  TRANSMITTANCE  OF  THE  ENTIRE  HUMAN  EYE 
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Table  G-9 


I 

I PROGRESSIVE  TRANSMISSION  OF  LIGHT  THROUGH  THE  HUMAN  OCULAR  MEDIA  (%) 


(percentage  of  light  incident  on  the  cornea  which  reaches  the 
anterior  surfaces  of  the  components  named) 


Wavelength 

(ran) 

Aqueous 

Lens 

Vitreous 

Retina 

Direct 

Total 

Direct 

Total 

Direct 

Total 

Direct 

Total 

280 

< 0.1 

< 0.1 

< 0.1 

< 0.1 

300 

2. 

8.5 

0.3 

1.5 

0.0 

0.0 

0.0 

0.0 

320 

26.5 

59. 

20.5 

U6. 

1.5 

4. 

0.9 

3- 

3L0 

34.5 

66.3 

23.5 

55. 

0.5 

1. 

0.3 

1.0 

360 

42. 

71.5 

36. 

61.5 

0.1 

0.4 

<0.1 

0.4 

380 

47. 

70.5 

41.5 

67.5 

0.4 

1. 

0.3 

0.9 

400 

51. 

80.5 

46. 

72.5 

5-5 

10. 

4.0 

9. 

420 

54. 

82. 

49. 

74.5 

27-5 

47.5 

20.5 

44. 

440 

57- 

83.5 

53. 

77. 

37.5 

69.5 

28.7 

85.5 

460 

60. 

85. 

58. 

79.5 

41.5 

7fc. 

32. 

70.0 

480 

62. 

86.5 

58.5 

81.5 

4L . 5 

76. 

35. 

72.5 

500 

63. 

88. 

59.5 

83. 

46.5 

78. 

37. 

75. 

550 

66. 

90. 

83.5 

86.5 

52. 

82. 

41.5 

79. 

600 

69.5 

91. 

67 . 

88. 

57. 

83.5 

46. 

80.5 

650 

71.5 

92. 

69.5 

89.5 

60.5 

85.5 

49. 

82.5 

700 

7 **. 

S3. 

72. 

90.5 

63.5 

87. 

51.5 

83.5 

750 

76. 

93. 

74. 

90.5 

65.5 

87. 

53.5 

83. 

800 

77.5 

93. 

75. 

90. 

66.5 

86.5 

54. 

82. 

850 

19. 

93-5 

76. 

90. 

68. 

86.5 

53.5 

81.5 

900 

80. 

93.5 

75.5 

88.5 

68. 

84.5 

51.5 

75. 

950 

79-5 

93. 

71.5 

83.5 

60.5 

75- 

36. 

^9.5 

980 

79- 

91-5 

66,5 

77.5 

52.5 

64.5 

21.5 

32. 

1000 

80. 

92. 

69.5 

80. 

56. 

89. 

25. 

38.5 

1100 

83.5 

92.5 

73-5 

81.5 

63. 

75- 

4l. 

55. 

1200 

78.5 

89.5 

51.4 

58.5 

33- 

39- 

4. 

8. 

1300 

80.5 

88,5 

54.5 

59-5 

36.5 

41.5 

4.5 

6.5 

1400 

39. 

58. 

0.2 

0.3 

< 0.1 

< 0.1 

0.0 

0.0 

1445 

18.5 

24. 

0.0 

0.0 

0.0 

0.0 

1500 

27. 

32.5 

< 0.1 

< 0.1 

< 0.1 

0.0 

1600 

57. 

66.5 

5. 

6. 

0.5 

0.9 

1700 

62.5 

89. 5 

9.5 

10.5 

1.0 

1.5 

1800 

54.5 

60.5 

3. 

3.5 

0.2 

0.2 

1900 

3- 

5. 

0.0 

0.0 

0.0 

0.0 

1950 

0.0 

0.5 

0.0 

0.0 

2000 

1. 

3. 

0,0 

0.0 

2100 

16.5 

21.5 

< 0.1 

<0.1 

2200 

26. 

30.5 

< 0.1 

< 0.1 

2300 

17.5 

20.5 

< 0.1 

<0.1 

2400 

5.5 

8. 

0.0 

0.0 

2500 

0.0 

0.5 

1 

X 
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Boettner  (6)  made  some  transmission  measurements  on  complete 
human  eyes  from  which  the  sclera  and  fundus  had  been  removed.  The 
results  for  the  7 year  eye  are  in  reasonable  agreement  with  the 
computed  values.  Also  shown  are  the  percentage  of  566  ran  radiation 
scattered  outside  a cone  of  1°  total  angle.  The  scatter  profile 
for  the  7 year  human  eye  is  shown  on  the  next  page. 


Table  1 

0-10 

SUMMARY  OF 

TOTAL  PERCENT 

TRANSMITTANCE  MEAS 

UREMENTS 

Scatter* 

t66  (nm) 

566  (mn) 

666  (nm) 

£00  (nm) 

August  ll,  1963 
7 -year  Bale 

29 

79-0 
(600  nm) 

82.5 

April  27,  1961 
51-year  female 

10 

56.5 

79.0 

81.0 

June  18,  1961 
53-year  female 

39 

38.O 

63.O 

71.0 

71.0 

October  22,  196I 
15-year  male 

37 

I6.0 

69.O 

8I.0 

6I.0 

^Cbruary  19,  1965 

52-year  male 

30 

ll.O 

69.O 

79.0 

67.0 

Calculated  Transmission 

68 

78 

82 

81 

*Percent  of  566  nm  scattered  outside  of  a 1 degree  cone,  except 
7-year  male,  which  was  measured  at  600  nm. 
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Figure  G-20  SCATTER  PROFILE  OF  A HUMAN  LYE,  GLASS  LENS, 
AND  "PERFECT"  LENS 


Earlier  measurements  on  the  transmission  of  the  ocular  media 
of  the  human  eye  were  made  by  Ludvigh  and  McCarthy  (36) measure- 
ments were  made  by  Alpem  et  at  (37)  in  vivo.  A comparison  of  these 
two  sets  of  measurements  with  those  of  Boettner  is  given  below. 


Figure  C-21  The  mean  spectral  transmittance  curve  for 
the  three  eyes  (solid  line)  compared  to 
in  vitro  measurements  of  Boettner  and 
Wolter  (10)  (dotted  line)  and  of  Ludvigh 
and  McCarthy  (filled  circles)  (36) 


I 

I Ruddock  (38)  has  examined  Che  effect  of  age  upon  the  trans- 

mission of  the  human  ocular  media,  the  curve  below  showing  the 
];  ratio  of  transmissions  of  63  year  old  versus  21  year  old  eyes. 

The  results  are  shown  in  Figure  G-22. 


Figure  G-22  The  transmission  of  the  ocular  media 
as  a function  of  wavelength.  The 
values  of  tX  represent  the  trans- 
mission of  the  media  in  a 63 -year- 
old  observer  relative  to  a 21-year- 
old  observer  (for  whom  t.\  is  unity 
at  each  wavelength) 
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The  ocular  media  transmissions  reported  by  Boettner  (6)  and 
Geeraets  and  Berry  (9)  are  compared  by  Sliney  and  Freasier  (39)  a 
shown  in  the  curves  of  Figure  G-23.  He  claims  that  much  of  the 
discrepancy  could  be  explained  by  differences  in  the  size  of  the 
image  upon  the  retina. 


Figure  G-23  Spectral  transmission  o f the  ocular  media 
of  the  human  eye.  Upper  curve  was  total 
transmission  obtained  by  Geeraets  and  Berry 
using  twenty-eight  enucleated  eyes.  Lower 
two  curves  by  Boettner  and  Wo  Iter  were  ob- 
tained by  combiniirg  separately  measured 
transmission  factors  for  the  cornea,  aqueous, 
lens,  and  vitreous  for  nine  human  eyes.  Lowest 
curve  is  direct  transmission  obtained  by 
eliminating  forward  scattered  light,  whereas 
middle  curve  was  obtained  by  collecting 
total  light  transmitted. 
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2.5  TRANSMISSION  THROUGH  THE  OCULAR  MEDIA 


The  data  of  Boettner  (6,10) shown  graphically  in  Figs.  G-12, 
G-13,  G-16  and  G-17  are  presented  here  in  tabular  form. 

Table  G-8 


TRANSMISSION  OF  THE  INDIVIDUAL  OCULAR  MEDIA 


Wave length 
(ran) 

Cornea 

Aqueous 

Direct 

Lens 

Vitreous 

Direct 

Total 

Direct 

Total 

Direct 

Total 

0.0 

0.0 

< 0.1 

280 

< 0.1 

< 0.1 

0.1 

0.0 

0.0 

300 

2.0 

8.5 

17.5 

0.0 

0.0 

1.0 

1.5 

320 

27. 

60.5 

78. 

6.5 

9. 

57. 

74. 

340 

35. 

68. 

83. 

2. 

2. 

64. 

79. 

360 

43. 

73. 

36. 

0.5 

0.5 

68. 

83. 

380 

48. 

78.5 

88.5 

1.0 

1.5 

71. 

87. 

Uoo 

5 ?. 

82.5 

90. 

12. 

34. 

73- 

90. 

420 

55. 

84. 

91. 

56. 

63.5 

74.5 

92.5 

440 

58.5 

85.5 

92. 

71. 

90. 

76. 

94. 

460 

61.5 

87. 

93.5 

74. 

93- 

77. 

94.5 

480 

63.5 

88.5 

93.5 

76. 

93.5 

78.5 

95.5 

500 

64.5 

90. 

94. 

78.5 

94. 

79.5 

96. 

550 

67.5 

92. 

96. 

82. 

95. 

80. 

96.5 

600 

70.5 

93. 

96.5 

85. 

95. 

80.5 

96.5 

650 

73- 

94. 

97.5 

87. 

95.5 

81. 

97. 

700 

76. 

95. 

97.5 

88. 

96. 

81. 

96. 

750 

78. 

95. 

97.5 

88. 

96. 

81.5 

95.5 

800 

79.5 

95. 

97. 

88.5 

96. 

81.5 

95. 

850 

81. 

95.5 

96.5 

89.5 

96. 

79. 

94.^ 

900 

82. 

95.5 

94.5 

90. 

95.5 

75.5 

88. 

950 

81.5 

95. 

90. 

84.5 

90. 

59-5 

65. 

980 

81. 

93.5 

84.5 

79. 

83. 

4l. 

49.5 

1000 

82. 

94. 

87. 

80.5 

86. 

44.5 

56. 

1100 

85-5 

94.5 

88. 

86. 

92. 

65. 

73.5 

1200 

80.5 

91.5 

65.5 

64.5 

66.5 

12. 

20.5 

1300 

82.5 

90.5 

67. 

67. 

69.5 

12.5 

16. 

1400 

40. 

59-5 

0.5 

1.5 

4. 

< 0.1 

2.5 

l44b 

19. 

25. 

0.0 

0.0 

0.0 

1500 

27.5 

33. 

0.1 

0.2 

0.5 

1600 

58.5 

68. 

9-0 

9-5 

14.5 

1700 

64. 

71- 

15. 

11.5 

15.5 

1800 

56. 

62. 

6. 

5.5 

6.5 

1900 

3. 

5. 

0. 

0.0 

0.0 

1950 

0.0 

0.5 

0. 

2000 

1. 

3- 

< 0.1 

2100 

17. 

22. 

<0.1 

2200 

26.5 

31. 

0.2 

2300 

18. 

21. 

< 0.1 

2400 

5.5 

8. 

0.0 

2500 

0.0 
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Figure  G-16  TRANSMITTANCE  OF  THE  HUMAN  LENS 


2.6  FUNDUS 


X 


Geeraets  and  Berry  (9)  made  a series  of  measurements  on 
the  fundus  tissues  of  man,  rhesus  monkey  and  rabbit.  The  spectral 
reflectances  for  each  are  shown  in  Figure  G-25.  Note  that  for 
man  because  the  eyes  had  aged  24-28  hours  post  mortem  the  nervous 
retina  had  swollen  and  clouded  and  had  to  be  excised.  Even  so  the 
data  for  man  show  considerable  scatter. 


Figure  G-25  REFLECTION  COEFFICIENTS  FOR  THE  HUMAN  P.E.  & CHOROID, 
WITH  COMPARISONS  WITH  THE  COMPLETE  FUNDI  OF  THE  RABBIT 
AND  RHESUS  MONKEY 


Geeraets  and  Berry  (9)  measured  the  spectral  absorption  of 
the  combined  pigment  epithelium  and  choroid  in  man.  The  absorptions 
are  shown  in  Figure  G-26  as  percentages  of  the  light  incident  upon 
the  cornea.  The  solid  curve  is  the  more  useful,  since  it  has  been 
corrected  for  the  reflection  from  the  fundus. 


400  500  COO  700  600  900  \Q00  l!00  1200  liO 0 1400  1500 

WAVE  LENGTH(nm) 


Figure  G-26  ABSORPTION  IN  HUMAN  P.E.  & CHOROID,  AS  A 

PERCENTAGE  OF  THE  LIGHT  INCIDENT  ON  THE  CORNEA 
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The  earlier  work  of  Geeraets  et  al  (8)  does  not:  appear  to  be 
corrected  for  reflection  from  the  fundus,  but  is  included  here 
because  of  the  dearth  of  data  for  man.  Figure  G-27  shows,  for  the 
human  eye,  the  range  in  value  of  the  absorptions  of  the  pigment 
epithelium  and  the  choroid.  Figure  G-28  shows  the  absorption  in  the 
lightest  pigment  epithelium  as  a percentage  of  the  light  incident 
on  the  cornea. 


Figure  G-27  Range  of  absorption  in  human  retinal 

pigment  epithelium  (area  dc tween  solid 
lines)  and  choroid 


Figure  G-28  Curves  showing  absorption  in  lightest 
human  retinal  pigment  epithelium  for 
light  incident  on  the  cornea 


Figures  G-29,  G-30  and  G-31  show  the  Geeraets  measurements  of 
the  absorption  of  the  darkest  human  pigment  epithelium,  the  lightest 
human  choroid  and  the  darkest  human  choroid,  in  each  case  as  per- 
centages of  the  light  incident  on  the  cornea. 


350  450  550  650  750  860  960  1050  1150  1250  1350  1450 


WAVE  LENGTH  (nm) 

Figure  G-29  Curve  showing  absorption  in  darkest 
human  retinal  pigment  epithelium  for 
light  incident  on  the  cornea 
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Figure  G-30  Curve  showing  absorption  in  lightest 
human  choroid  for  light  incident  on 
the  cornea 


Figure  G-31  Curve  showing  absorption  in  darkest- 
human  choroid  for  light  incident 
on  the  cornea 

Sliney  and  Freasier  (39)  used  the  Geeraets  spectral  absorption 
measurements  for  man  and  multiplied  them  by  the  ocular  media  transmit- 
tances  due  to  Geeraets,  and  Boettncr's  lowest  curve  to  show  the  range 
in  values  for  the  absorbed  dose  in  the  retina  plus  choroid  as  a per- 
centage of  the  light  incident  on  the  cornea.  These  results  are  shown 

in  Fig . G-32 . 


Figure 


G-32  Spectral  absorbed  dose  in  retina 
and  choroid  relative  to  spectral 
corneal  exposure  as  a function  of 
wavelength.  Retina  and  choroid 
spectral  absorption  values  corrected 
for  fundus  reflection  obtained  by 
Geeraets  and  Berry  were  multiplied 
by  corresponding  transmission  spec- 
tral factors  of  the  ocular  media 
from  Geeraets  (upper)  and  Boettner 
(lower) 


G39 


Coogan  et  al  (41)  claims  that  the  rhesus  monkey  is  a poor 
surrogate  for  man  in  terms  of  laser  damage  to  the  fundus , because 
the  human  pigment  epithelium  is  much  more  heavily  pigmented  .which 
renders  it  more  prone  to  damage.  However,  human  pigment  is  located 
towards  the  rear  of  the  PE  rather  than  at  the  front  as  with  monkeys. 
Also  threshold  data  available  indicate  the  monkey  retina  is  more 
sensitive  to  laser  radiation  than  that  of  humans.  The  rhesus  choroid 
is  the  more  heavily  pigmented,  but  this  is  not  the  primary  site 
of  laser-induced  damage.  However,  the  spectral  absorption  ch'-'ac- 
teristics  of  t„he  two  fundi  may  differ  slightly,  since  man  ha 
fuse in  mixed  with  his  melanin,  the  rhesus  monkey  does  not. 

The  rabbit  is  a good  surrogate,  as  demonstrated  by  Geeraets 
et  al  (7)  who  showed  via  t.he  curves  below  that  the  fundal  absorp- 
tions of  man  and  the  rabbit  are  similar  if  the  pigmentation  density 
can  be  matched. 


Figure  G-33  Percentage  of  the  energy  incident  on 
tiie  fundus  which  is  absorbed,  for  one 
human  individual  and  for  rabbits  of  4 
different  pigmen Lotion  classes.  The 
human  fundus  here  lacked  the  nervous 
re  tina 
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2,7  Sclera 


Smith  and  Stein  (42)  have  made  measurements  on  the  human  sclera 
over  the  range  0,5  to  2,5  ntn.  Their  Interest  was  in  laser  damage 
via  transsclera  1 beams  so  their  measurements  were  made  on  anterior 
portions  of  the  sclera,  viewed  from  outside.  Figure  G-34  shows  'the 
spectral  reflection  from  the  sclera  alone,  while  Fig.  G-35  shows 
the  spectral  transmission.  The  spectral  absorption,  derived  for 
each  wavelength  bp  subtracting  the  reflectance  plus  transmission 
from  1007o,  is  shown  in  Fig.  G-36. 


Figure  G-34  SPECTRAL  REFLECTION  FROM  THE  HUMAN  SCULRA 


Alpern  et  al  (37 ) measured  the  reflectance  from  the  outside  of 
the  sclera  of  living  human  eyes,  as  shown  in  Fig.  G-37.  They  covered 
only  0.4  to  0.65  pm.  These  reflectances  are  all  below  407,,  thus 
considerably  below  Smith  and  Stein's  measurements. 


WAVELENGTH  pfn 


Figure  G-37  Spectral  reflectance  of  the  sclera. 

Open  circles  are  measurements  made 
by  reflecting  light  from  the  outside 
of  a living  human  eye.  Filled  circles 
are  the  measurements  made  by  reflecting 
light  from  the  inside  of  an  enucleated 
monkey  eye  which  has  been  carefully 
denuded  of  pigment  epithelium  and  under- 
lying choroid. 
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APPENDIX  II 


RETINAL  IRRADIANCE  PROFILE 


appendix  h 


retinal  irradiance  profile 
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1.  INTRODUCTION 

The  determination  of  retinal  irradiance  for  axial  plane  or 
spherical  beams  can  be  performed  using  the  Fourier  transform  prop- 
erties of  imaging  systems.  Accordingly,  the  Fourier  transform  of 
the  image  distribution  is  given  by  the  product  of  the  Fourier  trans- 
forms of  the  object  distribution  and  of  the  point  spread  function 
(impulse  response)  of  the  eye. 

I(fx,fy)  - H(fx,fy)-0(fx,fy)  (H-l) 


An  inverse  transformation  of  I then  provides  the  desired  image 
distribution  H(x,y).  In  the  case  of  laser  sources  the  radiation 
is  coherent.  The  physical  quantities  are  the  (complex)  amplitudes, 
and  the  coherent  transfer  function.  The  retinal  intensity  distribu- 
tion is  obtained  by  squaring  the  absolute  values  of  the  calculated 
amplitude  distribution  obtained  from  the  Fourier  transform  of  I(fx,f  ) 
Appropriate  scaling  of  the  object  amplitude  is  required  and  the 
transfer  function  must  include  the  effects  of  aberration  and  pupil 
size  as  well  as  the  effects  of  the  retina  not  being  conjugate  to  the 
object  plane. 


An  equivalent  and,  in  the  case  of  this  program,  preferable 
procedure  is  to  view  the  problem  in  terms  of  scalar  diffraction 
theory,  in  particular  the  Fresnel  approximation.  An  excellent  dis- 
cussion of  this  topic  can  be  found  in  the  book  by  Goodman  (43) 

Taking  the  appropriate  result  from  this  we  can  express  the  amplitude 
in  the  retinal  plane  as 


rr 

u(xR,yR)  =J  J h(xn,yR;  x,y)  U(x,y;dx  dy 

where  U(x,y)  is  the  amplitude  at  the  exit  pupil  and 

exp  ikz 


h(xR,yR,x,y) 


ikz 


exp 


{i  [(xR"x)2  + (y»-y>2] 


'R 


(U“2) 


(H-3) 


HI 


We  can  therefore  write 


u(xr> Yr)  = e*P  [i  21  (XR2  + yR2)J 


U(x,y)  exp  [“•  (x2  +y2)] 
2z 


} 


exp  [ -iy  (xRx  + yRy)]dx  dy 


(H-4) 


Aside  from  phase  factors  and  constants,  the  retinal  amplitude  is 
the  Fourier  transfprm  of  the  pupil  amplitude  multiplied  by  a quadratic 
phase  term.  The  radiant  intensity  is  then 


H(xR,yR) 


u(xR,yRM2 


(H-5) 


Thus  the  problem  becomes  one  of  specifying  U(x,y).  We  can  separate 
this  into  two  parts,  one  part  determined  by  the  experimental  param- 
eters, the  others  by  the  properties  of  the  eye  which  are  most  con- 
veniently described  by  the  aberration  function. 


H2 


2.  ABERRATION  FUNCTION 


The  aberration  function  for  the  eye  includes  a number  of 
contributions  from  different  terms.  In  order  to  simplify  the  compu- 
tation of  this  we  shall  use  only  the  radially  symmetric  terms.  The 
justification  of  this  is  two-fold.  First,  in  experiments  we  assume 
that  the  subjects  used  are  selected  for  minimal  aberrations  of  the 
astigmatic  kind  and  that  coma  is  negligible  because  of  nearly  axial 
illumination.  Secondly,  the  thermal  calculations  are  based  on 
radial  symmetry.  This  reasoning  leads  us  to  characterisation  of 
the  eye  in  terms  of  spherical  aberration  alone  via  an  aberration 
function 

Cf  + C2  (H-6) 


where  p = radius  in  pupil  plane . 


A. 


2irCj|  p 
A — 


The  spherical  aberration  term  C^  p is  of  the  form 
The  coefficient  for  the  human  eye  can  be  estimated  in  the 
following  way.  From  Born  and  Wolf (Ref.  44)  the  longitudinal  spherical 
aberration  Az  is  related  to  by 


p 1 Az 

2 " 4aZ  £2 


(H-7) 


According  to  Lotmar(Ref.  45)  Az  w -.1  cm  (.35  cm  pupil  radius)  giving 


2?r  r 1 
A L2 


= -1.0. 104  cm-4 


(H-8) 


Lotmar's  value  corresponds  to  a longitudinal  aberration  of  3 diopters. 
Van  Meeteren  (R.af.  46)  gives  a value  of  1 diopter  which  leads  to 

c ' » -3.0.103  enf4  (H-9) 

We  have  used.  X — 500.0  nm  for  these  calculations.  Considering  the 
range  of  variation  found  in  human  eyes  we  can  choose  the  mean, 
where  X is  in  nanometers.  El  Hage  and  Berny  (Ref.  47)  have  pub- 
lished aberration  pm  les  which  give  values  quite  consistent 
with  this  choice.  In  the  Retinal  code  C2  = CABER2  while  2ttC'  ^ ~ CABEr 
-3.0-10^  cm-4nm. 
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3.  DEFOCUSING  FUNCTION 


The  experimental  part  of  U(x,y)  can  be  represented  as 


■^P(p)  * FpCp) 


(H-LO) 


where  P(p)  is  the  intensity  distribution  at  the  cornea  and  F-^(p) 
is  the  phase  distribution.  On  the  assumption  of  an  incident,  spher- 
ical wave  the  phase  function  is 


exp 


i2-jni 

A 


w 


(H-ll) 


where  n is  the  index  of  refraction,  and  W is  proportional  to  the 
path  difference  between  the  actual  wave  front  and  the  reference 
sphere  centered  at  the  retina — both  evaluated  at  the  pupil. 

The  phase  functioii  after  taking  the  quadratic  term  in  the 
diffraction  integral  into  account  depends  only  on  the  departure 
of  the  actual  wavefront  from  a spherical  wavefront  converging  toward 
the  rating.  Since  our  concern  here  is  with  spherical  wavefronts 
that  do  not  quite  converge  on  the  retina  (i.e.,  defocus),  we  can 
write 

w(p)  = p4"  (H-12) 

a 


where  W is  the  negative  of  the  wavefront  difference  at  the  pupil 
radius  a.  The  de focus  parameter  can  be  derived  from  Fig.  H-l.  The 
point  I is  th3  actual  image,  R is  the  retinal  point  and  p is  the 
pupil  location  from  the  second  principal  plane. 

W = Bl  - AX  (H-13) 


Solving  the  triangle  (BRI)  for  131  gives 

W = -f1  - Az-(l-cosa)  + [ f 1 (Az)^sin^u  ) (11-14) 

where  tan  u ~ —tt — 
f '+Az 


Az 


nzPf 

nzQ-f 


(H-15) 


a = pupil  radius 
f =>  back  focal  1 


ength  (measured  from  second  principal 


f'=  f-p 


n = index  of  refraction 
p ~ distance  between  pupil 
zQ~  distance  of  pupil  from 


and  second  principal  plant" 
the  waist  of  the  laser  beam 
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4.  CHROMATIC  ABERRATION 


Considering  that  fixed  experimental  geometries  are  used  even 
through  the  wavelength  changes  we  need  to  include  the  effect  of 
the  ''chromatic  aberrations"  of  the  eye.  In  the  application  at  hand 
this  is  the  change  in  focal  length  with  wavelength  and  if  we  include 
this  in  the  defocus  term  we  have  accomplished  our  purpose. 

The  dependence  of  focal  length  is  given  by  (Ref.  15) 


f = 


n(n0-l) 

I) 


(H-16) 


where  n = n(?0 

n0-  n(>.Q)  and  A0  is  the  wavelength  at  which  the  focal 

length  of  the  eye  is  fe. 


The  dependence  of  refractive  index  of  water  on  wave length  can 
be  obtained  in  tabular  form  from  Irvine  and  Pollack  (Ref.  48). 
Recent  measurements  (Ref.  49)  have  shown  good  agreement  with  the 
Irvine  and  Pollack  compilation. 


We  have  used  the  refractive  index  of  water  since  the  eye  media 
consists  mainly  of  water.  As  has  been  shown  (Ref.  50)  the  calcul- 
ated eye  behaviour  agrees  with  that  deternn’ned  experimentally  at 
wavelengths  above  about  430  nra.  The  use  of  the  water  index  at  the 
short  wavelengths  results  in  an  excessive  foeaL  length  and  is 
apparently  due  to  the  nonaqueous  constituents  particularly  the  lens. 
Using  the  Wald  and  Griffin  data  we  can  calculate  the  corresponding 
effective  refractive  index  for  use  as  the  tabulated  values  below 
5 00  ran. 


The  results  are 


T\ 

350 

400 

450 


n 

1.357 

1.346 

1.341 
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5.  RETINAL  IRRADlANCli 


H ( r , 0 ) - 


With  the  above  functions  the  diffraction  integral  becomes 
a 2ir 

i I 


XT 


Vp"(  P ) exp  i 

• exp 


C0p2  + c2p4 


O TT**1 

• P *r  -cos  (0-O) 


pdpd0 


(H- 17 ) 


where  we  have  taken  advantage  of  the  symmetry  and  converted  to 
cylindrical  coordinates.  Recognizing  that 

2 TT 


2v:i 

TP 


p-r-cos (0-0)  d0 


J0  '•AfT^ 


) 


(H- 1.8) 


the  normalized  profile  becomes 
.a 

i 

II 
E 


f&T  " 


Vp(p)  j0  (|j^)  exp  i 


c0p-  + c0p 


pdp 


CH-19) 


H8 
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APPENDIX  I 


GRID  SYSTEM 

1.  INTRODUCTION 

In  both  models,  polar  coordinates  r and  z were  chosen  to 
assess  the  transport  of  heat  'within  the  eye.  To  conserve  on 
computational  times,  the  points  at  which  temperatures  are  calcu- 
lated are  closely  spaced  in  regions  of  greatest  energy  deposition. 
The  mid-point  of  the  grid  shown  in  Fig.  1-1  is  located  at  i=M2+l, 
j=l  where  i represents  the  index  for  points  on  the  z axis  while 
j represents  the  index  for  points  on  the  r axis. 

On  the  z axis,  there  are  Ml  uniform  increments  on  each  side 
of  the  mid-point,  while  on  the  r axis  there  are  a total  of  N1 
uniform  increments  starting  at  j=l.  Beyond  the  uniform  portion 
of  the  grid,  it  commences  to  expand  so  that  each  succeeding  incre- 
ment is  a constant  factor  larger  than  the  previous  increment. 

Choice  of  the  grid  network  is  based  on  the  surface 
of  the  cornea  being  at  z=0  and  the  edge  of  the  eye  at  r=RVL. 
Consideration  is  also  given  to  the  interfaces  betwee  eye  media. 

For  the  Retinal  model  the  thicknesses  of  the  eye  media  are  repre- 
sented by  TAV,  TPE , TVL,  TCH,  TSC  and  TTS,  where 

TAV  = thickness  of  all  eye  media  from  cornea 
to  pigment  epithelium,  cm 

TPE  = thickness  of  the  pigment  epithelium,  cm 

TVL  = thickness  of  the  chorio-capillaris , cm 

TCH  = thickness  of  the  choroid,  cm 

TSC  - thickness  of  sclera,  cm 

TTS  - thickness  of  tissues  beneath  eye,  cm 

Distances  of  the  interfaces  from  the  surface  of  the'  cornea,  wherein 
z=0,  are  given  by  ZD(LI)  st  irting  with  ZD(1)=0. 

In  the  Corneal  model  the  thicknesses  of  the  various  eye  media 
are  represented  by  TH(1) , TH(2) , . . ,TH(6) . Distances  of  the  inter- 
faces from  the  surface  of  the  cornea  are  represented  by  ZD  (LI) 
again  starting  with  ZD(  1 )=0  at  the  anterior  surface  of  the  cornea. 


II 


GRID 


Next  we  shall  discuss  how  the  grid  ne  twurk  was  related  to 
the  various  interfaces.  In  this  regard,  the  only  liberty  one  has 
once  the  number  of  grid  points  are  selected,  is  the  choice  of  two 
points  with  which  to  fix  the  grid. 

2.  RADIAL  NETWORK 

In  both  models,  the  first  radial  grid  point  was  located  on 
the  axis  of  the  eye  (wherein  j=l)  so  that 

R(l)  = 0 (1-1) 

The  edge  of  the  eye  at  r=RVL  is  located  halfway  between 
R(N-l)  and  R(N).  Thus,  there  are  two  radial  points,  namely  R(N) 
and  R(N3)  beyond  eye.  This  situation  prevails  regardless  of  how 
many  grid  points  are  chosen. 

3.  AXIAL  NETWORK 

Choice  of  the  axial  grid  work  differs  in  the  two  models 
since  the  finer  grid  is  always  located  in  and  about  tiie  region 
of  greatest  energy  deposition. 

3 • 1 Retinal  Model 

In  the  Retinal  model,  the  anterior  surface  of  the  cornea  is 
located  halfway  between  Z(l)  and  Z(2).  On  the  other  hand,  the 
anterior  surface  of  the  pigment  epithelium  is  located  halfway 
between  Z(M2-Ml+i)  and  Z(M2-Ml+2).  The  first  grid  point  in  the 
pigment  epithelium  is  at  Z(M2-Mi+2). 

3 . 2 Corneal  Model 

In  the  Corneal  model,  the  grid  work  for  z differs  according 
to  whether  one  wishes  to  assess  corneal  or  lens  damage.  For  the 
case  of  corneal  damage,  the  finer  grid  is  located  at  the  front  of 
the  eye  so  that  the  corneal  surface  lies  halfway  between  Z(M2-M1+1) 
and  Z(M2-Ml+2) . The  last  grid  point  Z(M3)  is  located  so  it  coin- 
cides with  ZD  (7  ) • 

For  the  case  of  lens  damage,  the  fine  grid  is  located  i.n  and 
about  the  lens.  The  surface  of  the  tear  layer  is  located  halfway 
between  Z(3)  and  Z(4),  while  the  anterior  surface  of  the  lens 
(at  z=ZD(5))  is  located  halfway  between  Z(M2~Ml+l)  and  Z(M2-Ml+2). 
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4.  DETERMINATION  OF  EXPANSION  FACTOR 


Once  one  has  chosen  the  number  of  nonuniform  grid  points 
with  which  to  cover  a given  distance,  the  next  problem  is  to  assess 
the  expansion  factor  by  which  the  increments  must  be  sequentially 
increased  to  arrive  at  the  given  distance.  To  illustrate  the 
method,  we  will  develop  the  expansion  factor  for  the  radial  grid. 
The  method  is  an  extension  of  the  technique  used  by  Tech.  Inc. 
(Refs.  1,52). 


First,  consider  that  one  wishes  to  locate  the  edge  of  the 
eye  (r=RVE)  halfway  between  R(N-l)  and  R(N).  Moreover,  consider 
that  there  are  N1  uniform  increments  of  size  DR  included  within 
a total  of  N+l  points.  If  we  represent  the  expansion  factor  by 
R,  then  the  distances  P-^  and  l^  from  the  start  of  the  last  uniform 
increment  at  R(Nl)  to  R(N-l)  and  R(N),  respectively,  are  given  by 


P 


1 


Rj_1-1 
~ R-T 


1 + R + R2. . .Rj“2 


(1"2) 


, _Rj-l 

2 “ RTF"  ~ 


1 + R + R2. . .RJ"1 


(1-3) 


where  j=N-Nl.  If  we  ow  add  these  two  equations,  and  represent 
(P1+P2 ) /2  by  P,  then 


P*  2 (R- 1 )+2  = Rj-1 
R+l  K 


(1-4) 


Taking  the  logs  of  both  sides  and  solving  for  the  R oti  the  right- 
hand  side  of  Eq . 1-4  yields 

R = exp ( log (2  * ^~'r+i1^+1^)/ (j"1))  (1-5) 


This  equation  can  be  solved  for  R by  successive  approximations. 
First  one  evaluates  the  right-hand  side  using  an  estimated  value 
for  R.  The  result  represents  the  first  approximation  of  R.  The 
next  approximation  is  made  by  substituting  the  newly  -found  value 
for  R back  into  the  right-hand  side  of  Eq.  1-5.  This  process  is 
continued  until  R ceases  to  change.  Usually,  about  LU  approxima- 
tions are  required. 
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APPENDIX  J 

MEASURING  UNCERTAINTIES  IN  PREDICTED  LASER  POWERS 

TO  CAUSE  DAMAGE 

In  this  appendix  a methodology  is  described  which  measures 
the  variability  in  the  predictions  of  the  laser  of  the  Corneal  and 
Retinal  models  caused  by  uncertainties  in  the  input  parameters. 

A computer  program  has  been  developed  for  this  purpose.  This  ap- 
pendix describes  the  problem,  the  methodology,  and  an  example. 

1.  THE  PROBLEM 

Consider  a mathematical  model  with  n input  parameters  labeled 
as  X-p  an<^  an  outPut  result  Y.  Hence,  Y is  related  to  the 

parameters  X in  some  functional  form  as 

Y = f(X,,  X2>.  . . , X ) (J-l) 

1 • 1 Parameter  Nominal  Values 

To  use  the  mathematical  model,  one  must  specify  values  for  the 
input  parameters:  these  may  be  denoted  as  X^q,...,  X^q  Upon  exer- 
cising the  program  a particular  output  result  is  obtained,  say  Yy. 

In  functional  form 

*0  = f(x10 xn0>  (J-2) 

1 . 2 Uncertainty  in  Nominal  Values 

As  a result  of  the  fact  that  the  nominal  values  X^q,...,  X q 
probably  deviate  from  their  true  values,  the  nominal  values  are  in 
reality  "most-likely"  values  of  the  parameters.  To  appreciate  the 
consequence  of  uncertainties  in  the  parameters,  the  limits  over  which 
each  parameter  may  range  must  be  specified. 

1 . 3 Uncertainty  in  Output  Result 

Because  of  uncertainties  in  the  input  parameters,  a corres- 
ponding uncertainty  exists  in  the  output  results.  The  purpose  of 
this  appendix  is  to  measure  this  uncertainty. 
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2.  THE  METHOD 


To  measure  the  variability  in  output  results,  there-  are  three 
basic  steps  as  follows: 

• define  the  uncertainty  in  input  parameter  values, 

• determine  the  variability  in  output  results 
associated  with  each  parameter's  variability, 

• combine  all  the  uncertainties  so  that  the  output 
variability  can  be  measured. 

2 . 1 Variability  in  Input  Parameter  Values 

In  addition  to  the  assigned  nominal  value  for  each  parameter, 
the  user  must  specify  a pair  of  minimum  and  maximum  values  within 
which  the  time  parameter  value  lies.  The  nominal  value  is  assumed 
to  be  the  most  likely  value  for  the  parameter.  With  these  three 
values  the  probability  distribution  produced  by  each  parameter's 
variability  can  be  estimated  by  use  of  the  Beta  probability  distribution. 

The  Beta  probability  distribution  takes  on  many  shapes  depend- 
ing on  two  coefficients,  namely  a and  b.  In  this  application  19 
possible  combinations  of  a and  b have  been  selected.  These  are 
(a=l,2, . . . , 10  with  b=10)  and  (a^lO  with  b=l ,2 , . . . , 10) , Some  examples 
are  cited  in  Fig.  J-l.  The  case  in  which  both  a and  b equal  10  is 
very  near  a normal  distribution. 

In  a standardized  Beta  distribution,  the  variable  range  is 
from  zero  to  one.  The  most  likely  value,  which  is  hereafter  called 
the  mode,  becomes 

Mode  = sfe  (J-3> 

It  is  the  mode  which  is  used  to  determine  the  coefficieiits  for  a 
particular  parameter. 

The  corresponding  standardized  mode  of  the  i-th  parameter  is 
found  from 

X . n-X.  (min) 

Mode  = Xi'(max')^TTmi¥)'  (J_4) 
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where 


X_lq  = nominal  value  for  parameter 
X^(min)  = minimum  possible  value  for  parameter 
X^(max)  = maximum  possible  value  for  parameter 

Given  the  estimate  of  the  mode  in  Eq.  J-4,  a search  is  conducted 
to  find  the  closest  of  the  19  combinations  of  a and  b which  corres- 
ponds to  Eq . J-3.  Once  found,  the  shape  of  the  distribution  for 
the  i-th  parameter  is  obtained. 

Now  with  the.  shape  of  the  i-th  parameter  value  established, 
five  representative  values  of  X^  are  selected.  These  are  denoted 
as  X^(p)  for  p=0. 1 ,0 .3 , 0 .5 , 0. 7 , 0.9 . Here  p represents  the  100  p- 
percentiles  as  shown  in  Figure  J-2.  The  figure  shows  that  the 


Fig.  J-2  FIVE  REPRESENTATIVE  VALUES 

OF  THE  i-th  PARAMETER  VALUES 


probability  distribution  for  X^  is  separated  into  five  equal  areas, 
each  with  a probability  value  of  0.2.  The  center  point  of  X^  for 
the  left-most  such  area  becomes  X^(.l).  Next  is  X^(.3),  and  so  forth 

In  this  fashion,  five  representative  values  for  each  of  the  n 
parameter:;  are  obtained.  These  now  become 

(X  i ( • 1 ) , X.(.3),  Xi(.5),  Xi(.7),  Xi(.9))>  ... 

(Xn(.l),  Xn(.3),  Xn(.5),  Xn(.7),  Xn(.9)) 
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For  the  i-th  parameter,  the  set  of  five  values  are  selected  in  a 
fashion  where  they  are  each  equally  likely  to  occur. 

2 . 2 Variability  in  Output  Results  per  Parameter 

Having  selected  the  five  representative  values  of  each  input 
parameter,  it  is  now  necessary  to  measure  the  effect  that  each  of 
these  values  play  on  the  output  results.  For  this  purpose  the  re- 
sults from  the  sensitivity  analysis  is  used.  For  convenience  here 
a short  review  of  the  sensitivity  analysis  is  given  at  this  time. 

In  the  sensitivity  analysis  each  parameter  is  individually 
investigated  to  determine  the  effect  on  the  output  result.  For 
the  i-th  parameter,  a low  and  a high  value  are  selected  and  labeled 

xi (lo)  and  xi(m>  whero 

X1(L0)^  Vo5*  Xi(HI)  0-6) 

Corresponding  values  of  Y are  obtained  by  varying  only  the  i-th 
parameter  from  its  nominal  value,  i.e. 

Yi(LO)  = f(X10’  ***»  Xi(LO)’  *'•  X-nO} 
and  (J-7 ) 

Yi(lil)  “f(X10»  Xi (Hi) ’ XnO} 

The  results  may  be  depicted  as  shown  in  Figure  J-3. 


Fig.  J-3  DISPLAY  OF  SENSITIVITY  RESULTS 
FOR  AN  ARBITRARY  PARAMETER 
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Now  it  is  possible  to  estimate  the  sensitivity  associated  with 
the  five  values  of  parameter  i by  simple  interpolation  or  extra- 
polation, whichever  pertains.  The  results  yield 

(Y.C.l),  Yi(.3),  Y.(.5),  Y.(.7),  Y.(.9)) 


and  are  obtained  as  depicted  in  Figure  J-4. 


Note  that  an(^ 


^i(Hl)  arG  n0t"  necessar:'-^y  outside  of  the  range  containing  X^(.l) 
to  X.(.9). 

With  the  values  of  Y^(p)  now  available,  it  is  possible  to 
calculate  five  deviates  for  each  5.,  i.e., 

\<p>  - (y^p)  - Y0>  (j-»> 

Note  that  for  the  i-th  parameter,  that  the  Jive  associated  deviates 
are  equally  likely  to  occur. 

2 . 3 Applying  All  Combinations 

Now  variables  to  Y=Yq  can  be  obtained  by  selecting  all  com- 
binations of  the  deviates  and  applying  them  to  the  expression 
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Y - Yo  + A^p^  + A2(p2)  + ...  + An(pn) 

where  = .1, .3, .5,-7, .9  for  i=.2...n.  The  frequency  distribution 
of  Y from  all  of  the  combinations  yields  the  estimate  of  the  uncer- 
tainty in  the  output  result. 
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APPENDIX  K 

NOMENCLATURE,  SAMPLE  DATA,  CODE  LISTING,  AND 
SAMPLE  RUN  FOR  RETINAL  MODEL 
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SECOND  PRJNCJPAL_FQCAL  LENGTH  AT  WAVELENGTH  OF  SQA 

NM»b2,2«2  CM  FOR  HUMANS. =1 .H6U  FOR  MONKEYS 

FLOW  OF  BLOOD  INTO  UNIT  VOLUME  OF  VASCULAR  LAYER  AT  R(J)» 

_GM/C_M3-1EC _ _ 

PRODUCT  OF  RAT'  . AND  FLOW  OF  BLOOD  PER  UNIT  AREA  IN  R 
DIRECTION  AT  RC. ; .CM/CM-SEC 

TOTAL  LASER  P 0 w t, R_£ £ TW£ f N RrQ_  AND  R=  C L- . 5)_*  R I_NI  — - 

FOR  CALC.  IRREGULAR  PROFILES 

FACTORS  BY  WHICH  EXPOSURE  TIME  IS  MULTIPLIED  TO  YIELD 

_S  Uf  F X C I E N.  T__T  XME  FOR  DAMa  GE  TO  OCCUR. GIVEN  A S F U N C TIOn  

Qf  PULSE  WIDTH 

ARRAYS  USED  TO  EVALUATE  TEMPERATURES 


NORMALIZED  RETINAL  IRRADIANCE  AT  RtJ)  .CAL/CM2-SEC 
INDEX  OF  AXIAL  GRID  POINTS  Z(I) 

_INDICE8_CONTRPLLING  wHICH_IiJ  ELEMENTS  JO_  Inc_ORPOraTE  HR... 
CHANGES  TO  A AND  B MATRIX  ELEMENTS 

INDICES  DESIGNATING  DZ  ELEMENTS  ASSOCIATED  WITH  CHORIO 
_CAPILLARIS.L1  = 1 .2* . . .NVL 

I INDICES  FOR  PRINTING  AT  DEPTHS  ZCI)  “HERE  I=IPt+IDl  TD 
IPE+ID2 

INDEX  CONTROLLING  USE  OF  SPREAD  rUNCT  ION t SETs  1 TO  USE 

F U N C'T  10 N~0  TH E R W I SE  "SETaO 
I INDEX  INDICATING  LOCATION  OF  GRANULES 

INDEX  INDICATING  WHETHER  HUMAN  OR  MONKEY, JF  FiONKt  Y SJTsO , 

IF  HUMAN  SETs  1 " ’ " 

NUMBER  OF  IN  TERF  ACES  C Z D 5 BETWEEN  ZH(I-l)  and  ZH  C 1 5 ♦ 

PLUS  1 

T INDEX  OF  V (113.0)  TEMPERATURE  CURVE (J  VARYING)  TO  MARK 
UN  3-D  PLOTS 

NUMBER  OF  TIMES  TEMPERATURE  C*LC.  ARE  _REPjATtD_FOR  _ 
PURPOSES  OF  STABILITY 

I INDEX  AT  WHICH  PEAK  TEMPERATURES  OCCUR 

NUMBER  OF  PULSES  GROUPED  TOGETHER  FOR  DAMAGE  CALCULATIONS 
‘ NUMBER'  0F:  GROUPS"  OF ‘PULSES  CONSIDERED  DURING  EXPOSURE' 

TO  LASER 

NUMBER  OF  GROUPS  OF  PULSES  CONSIDERED  .DURING  AND 

FOLLOWING  "EXPOSURE  TO’ LASER 

INITIAL  GRID  POINT  IN  CORNEA 

1NITIALGPID  POINT_IN  CHOROID 

INITIAL  GRID  POINT  IN  PIGMENT  EPITHELIUM 

INDEX  DESCRIBING  LASER  PROFILE .UNIFORM  IF  = 0 , GAUSS  I AN  IFsi 

.IRREGULAR  IF  = 2 

INITIAL  GRID  POInT  IN  SCLERA 

INITIAL  GRID  POINT  IN  TISSUES  BENEATH  EYE 

INITIAL  GRID  POINT  JM  CHORIO-CAPILLARIS 

K" INTERVAL  AT  WHICH  VC(IfJ.K)  IS  PRINTED 

INDICES  CONTROLLING  I VALUES  AT  WHICH  TO  INCORPORATE  RV 

CHANGES  TG_  A AND  B MA’  TX  ELEMENTS 

I 'lNDICES"  ASSOCIATED' wi  fH"  INITIAL  "GRID  POINT  CZ)  IN  L-TH 
EYE  MEDIA 

INDEX  l OF  FIRST  INTERFACE  ZD ( L 5 BEYOND  Zwll-1) 

INDEX  FOR"  RADIAL"  GRID  POINTS  R(J) 

J INDICES  FOR  PRINTING,  WILL  PRINT  JaJQl  TO  JD2 


K2 


Ic 

_c 

l 


JM 


i 

J 


JyL 

J0CL.3 

K 

«M 

"KT 


KTT(L) 

KJYPE 


KTYPEG 


c 

c_ 

c 

c 

c 

c 

c 

c 

c~ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Kx 

LESION 


c 

c 

c 

c 

c 

c 

c 

c 

c 


lXfi.II 


LJM 

UMAX 


_L.LTiL._LG 

l.pA 

LPC 

LPE 

LPS 

LPT 

LeV_  _ 
LR 

lv 


UMAX 


LTT 

LXCL) 


Mi 

M2 

MJ 

N 

naclj 


Nb 

Nc 


NPL 

NPTll) 

NpULSt(L) 

NTfcST 


Nl 

N3 

Na 

>c 


Po 


POW«PQX 

PP 


MAXIMUM  J INDEX  AT  WHICH  DAMAGE  ASSESSMENTS  ARE  TO  HADE 
♦DEPENDS  ON  VALUE  CHOSEN  FOR  RM  Ax 
J INDEX  FOR  WHICH  R(JVL)  APPROXIMATES  HVJ. 

BESSEL  FUNCTION  OF  0 ORDER 
INDEX  FOR  TIMES  XTCK) 

JNT.EUER_SU.CH  THAT_XTCKM3=DPIJL-cE  

MAXIMUM  NUMBER  OF  EXPANDING  TIMES  XT(K)  

NUMBER  OF  TIME  STEPS  WITH  WHICH  TO  REACH  TOTAL  TIM£ 


.NUMBER.  OF__TJM ES_  AT  WHICH  S D T E M Pfc R 4 TUPE  DRAWINGS  A P E _0 E SJ_R ED 

FOR  NO  DRAWINGS  SET  KTYP£=0  ~ 

CONTROL  INDEX  WHICH  WHEN  SET  =1  WILL  PREEMPT  CARD 
PUNCHING  WHILE  MAINTAINING  PRIimT  OUTS  OF  TEMPERATURES 
AT  SELECTED  TIMES  AND  POINTS-  — SET  so'  EOS  CARD  PUNCHING. 
TOTAL  NUMBER  OF  TIME  INTERVALS  FkOM  PULSE  TO  PULSE 
_LF.SION_RA_DIUS*CM_ 

NUMBER  OF  RADIAL  INTERVALS  USE  D TO  INTEGR AT  r SPREAD 
function 

_n umber  OF  RADIAL  INTERVALS  from  RkO  to  RsRIM  OR  LFSIOn 

i index  describing  range  of  J qver"'which“to“assfss"oa'mageV”"'' 

RANGE=IMAX-LIMAX  TO  IMAX+LIMAX 

INDICES  USED  TO _C 0 NT R 0 L CALC.  OF  THRESHOLD  POWER 

LAST  GRID  POINT  IN  VITREOUS  HUMOR ' 

LAST  GRID  POINT  IN  CHOROID 
_LAST_GRJD  P0IJ1T  IN  PIGMENT  EPjTHtllUM 

LAST  PUINT'JN  SCLERA ' ' ' ' ’ 

number  of  incremental  PULSES  BT  IN  dpulse 

LAST  POINT  IN  CHQfiin-CAPILLARIS 

NUMBER  OF  POINTS  DESCRIBING  IRREGULAR  LASER  PROFILE’ 

INDEX  OF  NUMBER  OF  TIME  INTERVALS  BT 
_T  I ME  INDEX(TIME  = LTMAX*BT)  BEYOND  whICH  EXCESS 

TEMPERATURE  RISE  OF  GRANULES  IS  DISSIPATED  ~ 

TIME  INDEX  USED  FOR  K IN  SUBROUTINE  MX GR AN 


LifL£tL3,,# 

M 


I INDICES  ASSOCIATED  WITH  LAST  GRID  POINT  C Z D IN  l-TH 
EYE  MEDIA 


DUMMY  variables  USED  in  computations 
NO.  OF  GRID  SPACES  IN  Z 0 IRECT  I DN ( EVEN ) 

HALF  OF  NUMBER  OF  UNIFORMLY  THICK  L I NCR£MENTS ( LESS  THAN  M/2) 
HALF  THE  NO.  OF  GRID  SPACES  IN  l DIRECTION 
NO  ,_0F  GRID  POINT  S_I N Z DIRECTION  (M+l) 

NO.  OF  GRID  SPACES  IN' R'  DIRECTION 

REFRACTIVE  INDEX  AS  FUNCTION  OF  WAVELENGTH 
( 350  + 50*  ( L»  1 )•)  NM 

REFRACTIVE  INDEX  AT  WAVELENGTH  OF  SOO ' NM=N A ( 4 3 
REFRACTIVE  INDEX  AT  WAVELENGTH  WAV£L 


NL)M[ 


T I M E INTERVALS  WITHIN  OPULSE*USEU  FOR  DAMAGE 


CALCULATIONS 

TOTAL  NUMBER  OF  PULSES  IN  EXPOSURE 

NUMBER  OF  INCREMENTAL  TIMES  USED  TO  SUBDIVIDE  DPULSE 
NUMBER  OF  PULSES  ASSOCIATED  WITH  1.-TH  TEST  EXPOSURE 
NUMBER  OF  TEST  EXPOSURES  WHICH  CAN  DIFFER  IN  REPETITION 
RATES  UR  NUMBER  OF  PULSES 

number  of  uniformly  thick  h incrementscless  THAN  NJ 

NO,  OF  GRID  POINTS  IN  H DIRECTION  (N+l) 

NO.  OF  GRID  ^POINTS  IN  UNIFORM  PART  OF  GRID  IN  R DIRECTION 
DISTANCE' OF  PUPIL  FROM  CORNEA  * = .40  CM  F OR  .HUMANS  t 
= ,36  CM  FOR  MONKEYS 

NUMBER  OF  INCREMENTAL . PULSES  CAUSING  NEGLIGBLE  TEMPER- 
ATURE RISES  IN'  GRANULE  "CALC, 

LASER  POWER  ON  CORNEAL  PLANEt WATTS 

DISTANCE  BETWEEN  PUPIL  AND  SECOND  PRINCIPAL  PLANE ♦ CM 


K3 


f c 

PR ( J ) 1 

2 c 

1 

c 

PT 

f C 

PrlME  1 

1 c 

1 

T C . 

pupil  i 

1C 

P X ( L ) 

■ c 

! 

'il  c 

']  C 

Qp  i 

H*  C 

R(J) 

; . c 

RCO 

101  C 

REF(L) 

"J . c 

ReFL(L) 

c 

RfPET(U  l 

...  c 

Y c 

RGV 

c 

rh<jj  1 

■ \ c 

rim 

i'j  c 

» c 

. 

>■.  c 

PINT 

•«i  c 

Rw  AX 

,.l  c 

c 

RN 

"l  c 

Rpt 

■■■I  c 

RRT 

c 

Rsc 

c 

RVL 

■'!  c 

RxCL) 

c 

■■  c 

Ri 

»l  c 

«2 

"I  c 

S(IvJ) 

c 

< c 

ShB 

“i  c 

Sigma 

• c 

c 

TaV 

■'j  c 

Tc 

c 

TCH 

•T  C 

Time 

>"l  c 

TlMEX(l) 

>.|  c 

TqM 

X C 

tpe 

'y  c~ 

Ts(L) 

■>  > | c 

Tsc 

O’  C 

TsTEAM 

w C 

>'■  c 

TvL 

■J..  c 

To 

. c 

Veil  J) 

•7  c 

VcCItJ.K) 

■1  c 

VE(U»R.U1 ) 

T c 

i c 

VpX 

-n  c_ 

VQ 

t c 

1 c 

V S H C I ) 

■1  C 

VSHX(t) 

CALCULATED  OR  MEASURED  RETINAL  IKRaDIANCE  PROFILE 
NORMALIZED  TO  UNITY  at  R(n  = C. 

TOTAL  NUMBER  OF  ELEMENTS  USED  TO  CALC.  GKANULE__TEMP F.R 4TURF& 
UNIFORM  TIME  INTERVAL  USED  TO  SUBDIVIDE  QPULSE  FOR  MULTIPLE 
PULSES 

PUPIL  HADIUSfCM 


IRREGULAR  LASER  PROFILE  AT  PUINTS  RX  CL) 

LASER  POWER  REQUIRED  TO  CAUSE'  IRREVERSIBLE  DAMAGE  AT 
Z(I) iRCJ) .WATTS 


LASER  INTENSITY  ENTERING  EYE  AT  H ( 1 ) = Q , C AL/CM2-SEC 
RADIUS  AT  CO-ORDINATE  J » CM 
REFLECTION _F R 0 M CORNEA 

FRACTION  OF  RADIATION  REFLECTED  AT  Z=ZD(lY~ 


REFLECTED  RADIATION  FROM  INTERFACE  AT  Z=ZDCL) 

REPETITION  Rates  ASSOCIATED  with  L-TH  TEST  FXPOSUPE. PULSES/ 
SEC  ' 

RANGE  Q'-  TEMPERATURE  RISE(C)  FOR  3-D  and  2-d  plots 
RADIAL  DISTANCE  HALFWAY  BETWEEN  R(J)  AND  R(J+i) 

IMAGE  UR  BEAM  RADIUS,  FOR  GAUSSIAN  PROFILES  EQUALS  ' 

RADIUS  AT  WHICH  NORMALIZED  PROFILE  EQUALS  CUT*  FOR 
UNIFORM  PROFILES  EQUALS  EXTENT  OF  pROF'ILE.CM 

UNIFORM"  r adi  al  TnTerValsVc'm  ""r  " ' - 


MAXIMUM  RADIAL  DISTANCE  AT  WHICH  DAMAGE  ASSESSMENTS  ARE 
TO  BE  MADE 

MAXIMUM  RACIAL 'DISTANCE. CM  ~ 


FRACTION  OF  FRONT  OF  PE  CONTAINING  ALL  GRANULES  OR  NONE 
REFLECTION  OFF  OF  RETINA 
REFLECTION  FROM  SCLERA 
RADIAL  EXTENT  OF  EYE ♦ CM 


RADIAL  DISTANCES  ASSOCIATED  WITH  IRREGULAR  LASER  PROFILE 
PXCL)  (SYMMETRIC  'IN'RJVcm' 

STRETCHING  FACTOR  IN  Z DIRECTION 
STRETCHING  FACTOR  IN  R DIRECTION 

HATE  OF  HEAT  DEPOSITION  PER  UNIT  VOLUME  AT  ZCD.RCJ)'*"- 
CAL/CM3-SEC 

SPECIFIC  HEAT  OF  BLOOD . CAL /GM-C 

RADIUS  AT" WHICH  NQHMLIZED- GAUSSIAN  PROF 1LE  EQUALS 
1/E2 

THICKNESS  OF  MEDIA  FROM  CORNEA  TO  VITREOUS  HUMOR  *C.M 

TIME  FHOM  ST AR T OF  PULSE  TO  START  OF'NEXT  PULSE. ScC 

THICKNESS  OF  CHOROID. CM 

MAXIMUM  TIME  LIMIT  SET?  SEC 

TIMES  AT  WHICH  3-D  PLOTS  ARE" DESIRED. SEC 

TRANSMITTANCE  OF  MEDIA  FROM  CORNEA  THROUGH  VITREOUS  HIJMOR 
THICKNESS  OF  PIGMENT  EP I THF'L  I UM . CM 
NORMALIZED  TENPERATURE  RISES  FOR  GRANULES.C 
THICKNESS  OF  SCLERA, CM 

GRANULE  TEMPERATURE  USED  AS  HYPOTHETICAL  DAMAGE 
CRITERION, C 

THICKNESS  of  chorio-capillaris 
INITIAL  TEMPERATURE  OF  FYE.C 
TEMPERATURE  RISES 'AT  Z(I),R(J) 

TEMPERATURE  RISES  AT  Z(I).RCJ) 

TEMPERATURE  RISES  AT  Z ( ID (L ) ) , R ( JO ( U ) 

FOR  EYE  MEDIA,  AN[)"L1  = 2~FGR  GRANULES 
TEMPERATURE  RISES,  C 

TEMPERATURE  RISE  CAUSED  BY  ENERGY  DEPOSITION  WITHIN 
GRANULE'  DURING  T 1 me'  I N T F R V AL  RT.C 
VOLUMETRIC  SPECIFIC  heat  at  Z ( I ) » C ' L /CM3-C 
HEAT  CAPACITY  OF  L-TH  EYE  MED  I A , C A L /CM3-C 


AT  GIVEN  TIME.C 
AT  TIME  X T ( K Y , C 

AT  TIME  XT(K),Llsi 


t i 

i 

! t 


K4 


IC  Vz(L*L6*L3*  TEMPERATURE  RISE  AT  TIME  INTERVAL  Z T C L 3 D AFTER 

C LI)  Ufe-.5)*IN-.5  INCREMENTAL  PULSES  AT  POINT  Z HD (L J ) . P ( JDfL) ) 

C i L 1 b 1 FOR  EVE  MEDIA  AND  L 1 = 2 f OR  GRANULES  

if  c wavel  wavelength, n'n 

-I  C Xc  STRETCHING  FACTOR  FOR  time  INTERVALS  ASSOCIATED  * I T H 

T_C__  S INGLE  PULSE  TEMPERATURE  CALCULATION  S__  

Ac  ' " XCT  CL)”  ""  VALUES  FROM  WHICH  EXPANSION  FACTOR  XC  IS  SELECTED  BASED 
C UPON  PULSE  WIDTH 

C X p L 0 W_  _ RATE  OF  BLOOD  FLOW  TO  TISSUES  SURROUNDING  EYE « GH/CM3-SEC 

'I  C XFLOWICJ)  FLOW  OF  BLOOD  INTO  VASCULAR  LAVER  AT  RsDFLOW(j). 

C GM/CM2-SEC 

" C X^LOWOUI FLOW_  OF  BLOO_D_QUI  OF  VASCULAR  LAYER  AT  RsDFLOW(J). 

>‘V  C GM/CHP-SEC 

"J  C X I C J ) FLOW  OF  BLOOD  INTO  UNIT  AREA  OF  VASCULAR  LAYER  HALF- 

'■  C WAV  BETWEEN  RJJ ) AND  R ( J+l ) , QM/CMg-SEC 

C XOCJ)  FLOW  OF  BLOOD  OUT  OF  UNIT  AREA  OF  VASCULAR  LAYER  HALF" 

,J!  C WAY  BETWEEN  R(J)  AND  R £ Jt  1 ) . GM/CM2-SEC 

C XpD(K) ^NORMALIZED  TEMPERATURE  RISES  OF  GRANULES  AT  _T  IH_E  XT(Kl 

" C XT«W)  TIMES  FOLLOWING  START  OF  EXPOSURE* INDICATED  BY  INDEX  K 

■'I  C » SEC 

"»■  _C _Xx  _ FRACTION  OF  LASERS  ENERGY  ENTERING  EYE 

1'  C Xl»X2»Xi.,,  DUMMY  VARIABLES  USED  IN  COMPUTATIONS  

■0]  c Z(I)  DISTANCE  ALONG  Z AXIS  AT  GRID  POINT  I*CM 

C ZOCD  DEPTHS  OF  INTERFACES  BETWEEN  VARIOUS  EYE  MEDIA, CM 

"c  '■  ZH CD  ' AXIAL  DISTANCES'  HALFWAY  BETWEEN “Z CIO “'AND' "ZC 1 + 1 ). CM 

: c Zm  half  length  of  z axis*  cm 

■I  C Zo  DISTANCE  OF  PUPIL  FROM  LASERS  WAIST»CM 

••  c zt(L3)  Time  from  start  of  pulse  to  center' "ofTTme "intervals' 

C USED  TO  PREDICT  THERMAL  DAMAGE  FOP  MULTIPLE  PULSES 

■M  C ZtT(LJ)  LOG  OF  PRODUCT  OF  NUMBER  OF  PULSES/GROUP _T IMES  TIME 

•".L'C  INTERVALS'  AT"  WHICH  DAM  AGE  "C  ALC  .“"APE ' M A UE 

C ZTXCL3)  TIME  INTERVAL  FROM  START  DF  EACH  PULSE  AT  WHICH 

•».  C GRANULE  TEMPERATURES  ARE  TO  BE  CALCULATED 

■•t 'c  ' "" * ~ ”” ' 


c ***  DIMENSIONS  UF  VARIOUS  ARRAYS  USED  IN  PROGRAM 

C COMMON"  OlMENSroNS-'A  t'Mj,^)  ,BCNl,i)  , BVC'N3*3)  *CONX  (6)'*C0n(M3)  .DFLOw'C  fc)  *'“ 

C HRCN3) *IABCM3iN3) tIBLOOOCNVL) *IV(M3) ,PP(N3) *R(N3) *S(M3,N3) »TS(LTMAX) , 

■.  C V(H3*N3) , VC (M3.N3*KT) *VSHX (b) tVSHCMJ) ,ypLOWI  (N3) * XFLOWOCN3) ,XPD(KT) * 

w-|  c xt(kt')  *z(M3)  *zo(«: 

-J  c ***  main  program 

C OIMENSION  CXCIN3)  |CX«(M3)  *DAMAGE(2.2)  ,DXC(N3)  *DXR(M35  ,FXC(N3)  ,FXR(M3)  , 

c IoCLIJ)  * JDCLIJ)  * K KT  ( 3b ) * NRT  ( 38 ) , NPULSE  ( NTEST ) t nkUN  £nTE  ST  ) *'UD  ( M3  • N3 ) * 

1 1 C RePET(NTEST) .TIMEX(KTYPE) ,XCT(38) *VtCLIJ*KT*2) • VXX(M3.N35  fVZCLlJ* 

■ C InXX,KX92)  »ZT(KX)jZTJ(KJO^ZWK_X) 

c * **  Subroutine  grid' 

,"fc  I X C 7 ) * LX  C 7 ) 

j c *+*  Subroutine  image 

• C FaCLI+1)  .FPCLl  + l)  *FX(LI  + n,JU(32)»PXfLR)  tRXtLK)  *XF  1(LI+1)  *XFP(LI  + n 

.,r  c ***  subroutine  htxdep 

C Ab£M3*3).ABR£H3*7)*II(m3)*1Z(M3),REF(0),REFL,  j*ZHCM3) 

" c +**  Subroutine  mxgran(original)  ' 

•ic  T(7*7*7)iTTC7*7»7) 

1c  ***  subroutine  blood 

C FlQwI  CNj)  »FLQWXCN3)  *RU('n3)  *HH(N3)  *XI  (N3)  tX0CN3) 


SAMPLE  DATA  FOR  RETINAL  MODEL  USING  EXPERIMENTALLY 
OBSERVED  LASER  PROFILE  AT  RETINA 


1.3 

1.3 

1.3 

1.3 

1.3 

1.3 

1 .3 

1.3 

1.3 

1.3 

1.3 

1.3 

1.3 

1.3 

1 .3 

1.3 

.0  02S 

3 

0 

0 

.0010 

1 

.0010 

1 ? 

.01  + 2 

1.35-1 

1.5-8 

1 

1 1 

1.0  + 3 

1 

-1 

2 

1 

5 

37. 

. 1 0 

1 . 

.897 

1985. 

183. 

lt3. 

1.85 

.0012 

.0010 

.0168 

00180  . 

00120 

.00120 

. uO 1 ?U 

■DA T A CARdS  2 

1.3  1.3 

1.3  1.3 

1.3  1.3 

t .3  1.3 

■DATA  CARD  a 

■DATA  CARD  5 

■DATA  CARD  6 

■DATA  CARD  7 

■DATA  CARD  8 

■DATA  CARD  9 

■DMA  CARD  10 

■DATA  CARD  11 

At 

■OATA.  CARD  1? 

■DAT  A CARD  13 
163.  183. 

-DATA  CAPO  1« 
.1000  .7 

-DATA  CARD  IP 


30 

31 

i? 

33 

uO 

81 

4? 

8.3 

50 

51 

52 

' Si 

1.2 

1.2 

1 .? 

1 .2 

' 1.2 

1 . 8 

I .2 

1,2 

1.15 

1.15 

1.15 

1.15 

1.1 

1 . 1 

1 . 1 

1 . 1 

35 

35 

35 

35 

38 

38 

39 

39 

99 

8 5 

n 

8 7 

1 53 

58 

bS 

5 6 

DATA  CARD  16 

1 . 1 . 1 . 
----data  cards  17 
7 10  1 0 

33  34  35 

03  00  05 

'S3  50  5 b 

■ DAI  A CARDS  18 

1 .2  1.2  1.2 

1.2  i . 1 5 5.15 

.lb  1 . IS  1.15 

1.1  1.1  1,1 

data  cards  19 

35  35  35 

39  90  90 

07  98  99 

S 6 57  57 

--.-data  card  ipa- 


1.3  *1.3 
1.3  1.3 
1.3  1.3 


.0?5  .070  ,31 


18 

. 21 

26 

28 

36 

77 

38 

39 

J h 

8 7 

98 

99 

56 

P7 

1.2 

1 .2 

1 .2 

1.2 

l.M 

1.15 

1.16 

t .15 

1.15 

1.15 

1 .1 

1 . 1 

1 . 1 

1 . 1 

36 

36 

37 

37 

91 

8 2 

92 

83 

50 

c i 

52 

62 

S» 

68 

• 35  + u 


9^  a. 


■ ■ ■ . <~i 


DMA  CA&t)  20 


.92  ,001 


1 


.0  24 


--DATA 

card 

20  A- 

--DATA 

CARD 

21 

• 5-7  , 5- b 

10  11 
6.  2191 


„ DA  Y A CARD  2? 

- D A 1 A CARD  23 

10  1 P 

-- DATA  CARD  24 


ft. 000 

7 .359 

m m •«  i 

6 , 8 1 5 

0,349 

'DATA  c A 

5.944 

Bus  ?5 
5 . 5°Q 

5,277 

4.999 

4.749 

4.523 

4,319 

u . 1 32 

3.960 

3.802 

3.656 

3 . 5 ? 0 

3,394 

3.276 

3.166 

3.062 

2.9o5 

2.879 

2.787 

2.706 

2.629 

2.557 
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TSTEAMS  300, 


RS  ,00000  ,00033  ,00067  ,00100  ,00133 
ZB  ,00010  UOu  .470+02  .467+02  .542+02  ,647+02  ,630+02 

TSTEAM*  400, 


Kc  ,00000  ,00033  ,00067  ,00100  ,00133 
Zb  ,00010  UUs  tbil+02  .bbO+02  .612+02  ,731+02  ,936+02 

TSTEAM*  SOU, 


Kb  ,0  0000  ,00033  ,00067  .00  1 00  .1)01  33 
zo  a 0 0 0 1 0 Ot)E  ,331  + 02  »bb0+02  ,612+02  .731  + 0?  ,936+02 

2*  , 100-03CM  RADIAL  EXTENT  OF  IRREVERSIBLE  DAMAGE*  ,100+uiCM 
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1 . 
2. 
3. 

9 . 

5. 
o . 
7. 

6. 
9. 

10. 

1 1 . 
12. 
13. 

19. 

lb. 

lb, 

17. 

1 to  • 
19. 
2u . 
21 . 
22. 

23. 

24. 

25. 

26. 
27. 
2b. 

29. 

30. 

31. 

32. 
35. 
39. 
35. 
3b. 
3 7 . 
3b. 
39. 
UO. 
9 1 . 
02, 
93. 
99. 
93. 
96, 
9 7. 
a 2 , 
99. 
5 U . 
bl  . 
52. 
55. 
59, 
55. 
5 6. 
3 7. 


*#* 


10 


**  + 


COMMON  AC2°*3).AP,AAV,ACH,APF,ASC»ATS.AVL.Bt11«3)fR8«8V(11.3)i 
1CUNX  C6)  .CUN1291  »CUT*0IM,nhL0W  ( AJ  ,OPULSF*OR.DTf  ni  V »nz.FI.  ♦ WR  fl  1 J . 
21A9C29. 1 1 ) » lRLOUOt6) » IF1L. IG. IPX* IH|. IPA. IPC» IPE.1PRMF.XPS. XPT. 
31FV.Ivf29),jVL«LTM.LPA.LPC.LpE*LpS.LPV.LPX.LTMAX.K.KM,KT.M.Ml.M2. 
9M3,n.N1»N3.N‘j,\ivi.  ,P0X.PRni).PTIME,uP.R(ll).PCO,RIM,RN,HP£.RRT. 
5RvL.RSP.SC29. 11 ) .SHb. TAV.TCH.TOM.TpE.TVL« 1 SC?2O01 .TSC.TIS, v(?9. 1 1 ) 
b.VCC29.11.6o)»VSH(.29).VSHX(6).WAVEL.XC.XFLOK,XPLnwT(6).XFLnwO(A), 

7XFOC6o).XT(bO),iC29).zr>(A).ZM 

DIMENSION  CxC  £ 1 1) . CXR(?Q) .DAMAGE (2.2) « DXC ( 1 11  *nxP(291  . FT  Tmf(387  » 

1FXCC 1 1 ) *FxR(29) i 10(50) .jnCSO) .FIT £38) .MPTC3S) , wpiiLSEf 7) .NKUNf 7) ♦ 

2ai)(29»in»RePET£7).TlHFXCS).XcT(38).Vt(20,ft0,2l,VXX£?9.in. 

3VZ£20,?b.3.2).ZT(«).7TT(P).ZTx(8) 

WtAL  LFbTOM 
FORMAT ( 1 OF  7.31 
FORMAT (r7.9f3l7) 

FORMAT  £ 1 1 F7.2) 

FORMA  I f 1 017) 

FORMAT  £F7.?»I7»2F7.2) 

FuRMATC 10E7.2) 

FURMAT  C 17. 3E7.?) 

RtAuC5.9) £FTIME£L) .L=1«3P)  2 

K t A U C 5 . i ) K I M , 1. 1 M , 1 F .1  L > 1 G X 9 

RE  ADC  5. 6) "MAX, L 1MAX  »L  ESI  On  F 

set  values  fok  n.m»n3*n9,  and  dr 

Nl=9 
N 5 N 1 + b 
N5  = (n+  1 
N9  = Nl  + 1 

kEAQCS.s)  1PROF  .pn* , CUT  6 

DR  = LESIuN/um 

IFflPROF.fcO.OjDKsKTM/CLlM-.S) 

RtAUCb. /)UPUl.SF  7 

Rc.AD(5.5)NTeST.  (NKUim(L)  .l.=  1 .NTFST)  A 

R E A D ( 5 « 7) (kFmF | fL) .L  = l .MTFST)  o 

R f.  A 0 ( 5 • 5)  f nPUL.SE:  £L)  ,L  = 1 .NTEST)  10 

RU.A0CS,  3)101  . 1P2» J D1  . jr>2,  ITYPt  11 

LRX=1 

IF  CnTEST  .fc(3,  1 , AND.NpULSt.  £ 1 ) ,E«.  1 ) LPX*0 
IE  CDPULbF  . <-T  . , 3c-H)  on  Tu  10 

adjust  powFk  and  i-ulse  width  for  exposures  wtth  pui.sfs  ifs«  tHan 

. 3 E“ B SEC 

P u W s P 0 P * I'  p I J 1.  s E / . 3 1 - 6 
DPULSE=.3t-b 

READ  C 5 • 9)  TO  , Fl.U  1 i E IV|  ? 12 

READ(b»9)TOM.APE.AVL. AC H. A SC. ATS.RrO.RRT.RSC.RPE.WAV Ft  13 

READC3 . 9)1  AV  ,TPh.  TVL.  rCH.  T-SC.RVL  19 

AAV  = - A!  DC ( TuM) / 1 A V 

R E A v ( 3 . 9 ) ( c n N X l L)  . L,  = 1 . 6 ) 15 

RtAOCS.9)  (V5iHX(l.)  * L=  1 .6)  16 

REAu(5.5) (MRTCL) »L=1.3«)  17 

READC5.2) CXCT(l) .L=1.3b)  IB 

RLAD(5.5)(K)TCL).L=1.3rt)  19 

COMPUTE  PI  . K M , K T iNP.P1  Tf‘P.TIME*  ANP  XC 
L1=AL0G(PPULSE)/. 69313+29. 

I F ( L 1 . 1.  f . 1 ) L 1 = 1 
I r C L 1 . P T . 3 ft ) L 1 = 3 A 
IF CLPX.tO. 1 )GO  Hi  11 
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58. 

59. 

60. 
61 . 
62. 
6i. 

64. 

65. 

66 . 

67. 

68. 

69. 

70. 

71. 

72. 
72. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81, 
82. 

83. 

84. 

85. 

86 . 

87. 

88. 
89. 

90  , 

91  . 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
ICO. 
101. 
i 0 2 . 

103. 

104. 

105. 

106. 
107. 
106. 

109. 

110. 
111. 
112. 

113. 

114. 


* * * —SINGLE  PULSED  EXPOSURES 
XC=XCTCL1) 

NPsNPT C LI  ) 

KT-KTTCL1) 

DTsDPULSF.*(XC-l  .l/(XC**NP-l  .5 
TIM£=DT*(XC*+KT-1.)/(XC-1.) 

G U 10  13 

**  + ---MULTIPLE  PULSED  EXPOSURES 

11  XCS1.4 
NP  = 5 

X 1 = 0 . 

DU  12  L= 1 . Ml EST 

IF  CXI  .LT.NPULSFCL)/RFPET(LnXl  = NPULSE(L)/RFPPTCL) 

12  CUNTINUE 
TIME»FTIME(L1 J*X1 
DTaDPULSE+lXC-1 ,)/(XC»*NP-l.) 

KTcALOPC  1 , + TTMF*(XC-l  .) /OT  WALOGCXO  + l . 

PTIME=DPULSE/NP 

13  KT=KT+1 
KMaNP+ 1 

IFCKT.CT.50)W«ITE(6O«)KT 

14  FORM  AT  ( 1 HO  ^ 3HKT=  f I3«  2X  t 22HTIME  D T MFNS I ON  mo  LOW) 

IFCKT.PT.  591ST0P 

***  CALC.  02  AND  I INDICES 
Ml  = 7.-6.*CPPULSE**.n 
IFCMl.LT.lJMlsJ 
MS2*M1+1 6 
M2=M/2 
m3=m+ 1 
IPE=m2-m 1 +2 
D2-TPE/M1-1 .F-25 
I P A a 2 

***  SI  ORE  AXIAL  DISTANCES  TO  INTERFACES  OF  EVE 
ZD  C 1 ) a 1 . E-?5 
ZD  C 2 ) = T A V 

Z D C 3 3 = 7 D ( 2 ) + R P t * T P E 
ZU(4)=2DC3)+(1.-RPF)*TPE 
ZD(5)=ZDC4)  + TVI. 

ZD(6)=7D(5)+TCH 

ZD(7)=Z0C6)+TSC 

ZD(8)a7DC7)+lO. 

CALL  GRID 
NVL=LPV-IPV+ 1 

***  CALCULA1F  AND  STOKE  I.J  TNOICtS  AT  WHICH  T F HP f R A T UR F S ARE  PRINTED 
IDlalDl+TPF 
1D2=ID2+IPF 
I F ( 1 0 1 . L T , T P A ) I D 1 = I P A 
1FCID2.GT.M) IDPaM 
IE ( JD2.GT.N) JD2=N 
WRITE (6* 1 5) 101 . 1P2. JD1  . J02 

15  FURMATClH0.UHIDla.I2.3X,4HlD?=.I2*3X»4HJDl=,T2.3Vr4HJD?=»I2) 
WKITECftt 1 8) CKC J) * Jsl ,N3) 

16  FORMAT ClH0.2HH=/ClXt10F8.4J) 
lsKTTEC6»  19)  CZC  I)  * I»1  .M3) 

19  FURMAT C1H0.2HZ=/C 1 X. 1 0F8.4) ) 

DO  20  L 1 = 1 . N V l. 

20  IbLDODCLl )=IPV+L1-1  K14 
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115.  ***  CALC.  N 0 R M A L 1 7. F 0 l.ASFR  PR0F1LFS 

116.  00  21  L=1  ♦ NJ 3 

117.  21  HHfUsn. 

lift.  POXsPOW 

HR.  CALL  IMAGE  CALI 

120.  wRITE(6.2e>) QP, CPR(L) .L=l )N)  ... 

121.  2b  FORMAT  C 1 H 0 * 3HQP=.  t8,3.  3X  .3HPRs/(  IX  . 1 Op.ft,3)  ) 

122.  DO  27  J=1.N3 

123.  DO  27  1=1. M3 

124.  V(I»J)*1.E-J0 

125.  27  S(If J)=0. 

126.  WRITE  (6.?8)(HRCJ)  *J=1  »N)  mmm 

127.  28  F0RMATC1H0,3HHR=/(1X, 10EM.?n 

12ft.  REA0C5*2)SHB»XFL0W*CFL0W  ?0 

129.  **#  SET  BLOOD  FLOW  RATFS  ENTERING  aND  LEAVING  VASCULAR  LAVER  AS 

130.  *¥*  FUNCTION  QF  RADIAL  DISTANCE 

131.  X2=CFL0w/(3.l41b*RVL*RVL) 

132.  DFL0W(1)=0. 

133.  X 4 = 0 , 

134.  DU  30  1132.6 

135.  X4BX4+.1 

1 36.  30  DFL0WCLn=X4 

137.  DO  31  L 1 = 1 *6 

13ft.  XFLOWI (LI )=X2 

139.  31  XFLUWOCLl )=X2 

140.  WRITECA.32) (REPtT(L) »L=1 *NTESn  

141.  32  FURhAT U HO  . 6HR PP p;  T = / ( 1 X , 10F5.3) 5 

142.  wk  I T (6.331  (NPULSE(L)  .Lsl.NTFST) 

143.  33  FURMAT(1H0,7hnPULSF=/( IX. 10IP) 1 

144.  DO  34  T = 1 ,M3 

145.  DO  34  JsliMi 

146.  34  VC (It Jtl)*l  .E-10 

147.  WRITE  C 6, 35)  A AV  . ACH.  APF. . ASC  » ATS.  AVL.CFLOW.DPUI.  SF  , DR  ,DT,nZ.  IFIL  . IPA--- 

148.  l.IPC.IPE.IPS.IPl.IPV,JVL,KM,KT.LIM,LPA.LPC.LPEvLPS.LRV.M.M1,N.  N1 •--- 

149.  2NP.NTEST  .NVL*POWf  P II  Kg . OP ♦ KCO » RT M . RPf . RRT . rt VL * S HB » T A V ♦ Y OH , T I MF  . 

150.  3T0M.TPF.TSr  ,TVI.  .TO.XC.XFLOW  

151.  35  FDRMAT(lM0*UHAAV=*F7,l«2V»4KACH=oK7.0»2X.«HAPta,F7,0.?V.4HASC:.  ,F7, 

152.  10t2X.4HATS=,F7,0/lX,4HAVLs.F7.0»?X»6HCFLOw=,F7.4.2X,7HDPUL5EB.Fft,3 

153.  2.2X,3HDR=.FB.i/lX,3KDT=.Eft.3.2X,3HDZ=.E6,3»2Xf 5HTFTL=. T1.2X.4HTPAs 

154.  3.I2»?X.UHIPC3»T2,?X,4HlPF=,I?.2X.4HIPS=»I2/ly*«HTPTe.I?f?X,aHIPV=, 

155=  4I2.2X  .UHJVL  = . I?. 2X.3HKMS, IP,?X.3HKTs, I2.2X .4HL IMS. 1 2.2X. 4HLP As , I?, 

156.  52X.4HLPC=tI2/iy*4HLPFs,l?.2X.4HLPSs,I2,2X,UHLPV=.I2,2X.2HMs,I2,2Xf 

157  . 6 3 h M 1 = » I2.2X.2WN=,I2,?x.3HNi  = . I?.2X.3HNP=.  I ?./  \ X . 6HNTEST=  . T ?. . 2X  . 4HNV 

15ft.  7L=»I2.?X»4HPO^=»EB,3.2X,6HPTlMFs.EF.3.2X.3HijPs.Fft,3.2x.4MRrO*,F7,a 

159.  e/lX.4HRIMs,F8.4,2x,4HRPE=fF7.4,2X,4HRRT=,F7.u,?X.4HRVL=.F8.3»2X.4H 

160.  9SHBS.F7.2/1X.4H1  AVB.E8.3»2X»4HTCH=.Eft,3»2X.5WTTMFa,Efl.3.?X.4MTOMs, 

161  . lF7.4.2X.4HTPE=,E8,3/lx.4HTSC=,FB.3»2X,4HTVL=,Fft.3.?X.3HT0=,F5.1t?X 

162,  2*3HXC=,F5.1,2X*6HXFL0W3,F7.4) 


163, 

READ(5.8)KTYPE0 

?0a 

164. 

PEAD(5.8)KTYPE 

?1 

165. 

L 1=KTYPE 

166. 

IFUTYPE.EO. 0)11  = 1 

167. 

RE  AD ( 5 » 7 ) (TIMtX(K)  ,K=1.L1) 

??. 

168. 

R FAQ (5*5) II l » IT2.I I3.JJ! » J J 2 

?3 

169. 

***  START  OF  TEMPERATURE  CALCULATIONS  for  one  pui.sf. 

TO  RE  USED  FITHFr 

170. 
171  . 

***  FUR  MULTIPLE  OR  SINGLE  PULSED  RXPOSURFS 
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172, 

173. 
17a. 

175. 

176. 

177. 
176. 
179. 
160. 
161  . 
182. 
163. 
lfta. 
165. 
186. 
187. 
1 66. 
169. 
190. 
191  . 

192. 

193. 
l«a. 

195. 

196. 

197. 
196. 

199. 
200  . 
201  . 
202. 
203. 
209. 
205. 

200. 

207. 

208. 

209. 

210. 
211 . 
212. 
213. 
219. 

215. 

216. 

217. 

218. 
219. 
220  . 
221  . 
222. 
223  . 
229. 

225. 

226. 

227. 

228. 


XTC1)=0. 

OTXsDT 
KTX=kt+1 
DU  36  K s 2 . K ) X 
XT(K)sXT CK«l)+OT 

36  DT=XC*DT 
IKX=TIME**FDTl+ED72 
IFCIKX.LT. 1 ) iKXsl 
XX=2*IKX 
»NIU(6.37)1KX 

37  FURmATC1H0.9HIKX5» 12) 

K = 2 

IhTs2 

ITYREXsITyPt 
CALL  HI. ODD 

38  DT=xT(K)-XT(K-1) 

IF  (K.UT.KM)  G)P=0  . 

CALL  HTXDfcP 
IFCK.GT.2)r-0  TO  81 
00  90  I=IPAfM 
KFITfcC6t39  ) ( 5 C I * J ) , J=1 ,N) 

39  FUR  HAT  f 1H  . 2HS= t 1 U Eb . 3 ) 

90  CONTINUE 

91  W2ITEC6.92) XT (K) . K . P 0 W 

9 2 FuRMATC 1H0,5HTIME=.E8.3,3X.2Hk  = , I 2 . 3 X , 6HPQWE R= . E a . 3 , 5 H W A T T A ) 

***  CALCUlATF  TEMPERATURE  RISECMATRIX  REDUCTION  ALGORITHM) 

IK=1 

**'-f  COLUMNS  (NORMAL) ........... 

93  DO  85  TsIPA.M 
w=XX*VShf I) /DT 
DO  99  ,J=1. W 

FXC(J)=W+C0NCl)*B(J.2)-8V(J«?)*IV{n-BR*lAR(T..T) 

IFC  J.GT.  1 )FXC  CJ)=FXC(J)  + (COM  (I)*R(J,  1 ) + BV(J,  1 )*IV(  I)  )*flxr.(J-l ) 

CXCC  J)s-<,CONCl)*R(.J»3)+BV(  J t 3)  * I V C J)  ) /P  XC  C >T ) 

SUM3(rt-(A(lf2)-bV(Jf.?)fivCI)-BR*IAn(I,J)n*VCl.J)  + A(T.l)*vn-lfJ)  + 
1A(I?3)*V(IM*J)+S(T»J) 

DXCCJ)=3Um/FXCCJ) 

IFCJ.GT.l)DXC(J)  = (SUM+(0GN(I)*P(J»l)  + 8V(Jtl)*IV(T))*DXf)C0»1))/FXr( 
1 J) 

99  CONTINUE 

vx=o. 

DO  85  L=1*N 
JSN41-I. 

VX=DXCf J3-CXCC J)*VX 

95  VXX(I,J)SVX 
00  96  I=JPA,M 
DO  96  J=1  ,N 

96  V(I,J)=VXXC1»J) 

***  RQRSCNORMAl  ) ........  « 

cx»( JPA-1  ) = 0 , 

DO  50  J=1»h 
DO  98  I = IPA  *M 
w=XX*VSUf I) /DT 

FXR(I)sw+ACl,?)-HVCJ.2)*TVa)-PB*I/B(I.J)+A(T,  l)*CXR(I-n 

CXR(I)=-A(T.3)/FXRCI) 


SUM=Ci\-(CUN(I)*BCj,?)-RV(J*2)*I\/(I)-BB,*1IAHCl.J)))*VCT,J)  + CrON(T)* 
lb(Jt3)  + 6V(J.3)*IVCI))»V(T,J+n+S(IfJ) 


call! 


call! 
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229 , 

230, 

*tr 

231, 

232, 

! ,t  r 

233, 

234, 

235, 

\ 

236. 

237, 

238, 

239, 

240, 

. - 

241  , 

242, 

1 

243, 

1 

244  , 

245 

246 

247 

248 

249, 

..  ■■  i 

250 

„ , 

251 

. 

252 

y 

253 

254 

255 

. . 

2S6 

i 

257 

i 

256 

! 

259 

\ 

260 

261 

* 

»./ 

262 

rf* 

263 

If 

i 

264 

265 

J . 

o • ( f * 

266 

267 

1 

’■  . 1 

268 

i 

269 

270 

••  1 1 

271 

272 

„ _ 

273 

« 

274 

275 

, i 

276 

i 

277 

1 

278 

279 

| 

280 

1 

281 

282 

283 

I 

284 

* 

285 

IF  C J.GT.l  )SUM=SUM+(CON(  n*o  t J.  U + BVC  J.  1 )*IV(T)  T*V(T  . J-l) 
DXRCI)=SUM/FXR(I) 

IF(I.GT.IFA)DxR(I)  = (SUM+A(I,n*DXH(I“l5  1/FXRfn 
48  CONTINUE 

vx=o. 

00  50  L - I IJ  A * M 
I=M+IPA-L 

vx  = oxRtn-r.;«(  i)»vx 

VC(I*J.x)?VX 
50  VXX(I,J)sVX 
DO  51  I=IPA*M 
DO  51  J=1 »w 
bl  VlI*J)sVXXCI»J) 

InsIK+1 

***  RECYCLE  TEMPFRAIUkE  CALCULATIONS 
IF (IK.LE.IKX)GO  TO  43 
IF (K.EG.KM)UO  TO  62 

IFCITYPEX.LT .ITYPF.AND.K.LT.KT3G0  TO  66 

62  WRITF(6» 63) CR( J) ♦ JsJOl t JH21 

63  FORMAT  Cl  H , !0X»2HRst9F8.5/1 3X,30H ) 

DO  6 5 Is  ID  J . 102 

X1  = Z(IWCIP£)«-DZ/?. 

WRITE(6»f»«)  XI » (VC(I  t J»K)  , jsJDl.  J02) 

6a  FORmATCIH  .2HZ=*F8.b.2X,9FF.n 
6b  CONTINUE 
ITYPFXsO 
66  K=K+1 

IT YPFX=1TYPEX+  1 
IF (K.LF .KT) GO  TO  3B 

***  RE Ao  NORMALIZED  TEMPERATURE  RISES  TS  OF  GRANULES  FDR  ,3t-8  PULSE 
***  AND  CALCULATE  NORMALIZED  RJSFS  XPD  FOK  ACTUAL  PULSE 

HtAOCb.oJDIMft TMAX  i 

70  FORMAT  C1H0*  fclHOlMENSION  OF  ARRAYS  ASSOCIATED  Ip; T T H ARGUMENT  LU  IS 
1 TOO  SMALL) 

DO  71  1.1  = 1 tLTM  AX 

71  T S ( L 1)  = 1 . 

KEADC5«2)(TS(L)»L5ltl.TMAX.!0)  ! 

CALL  UXGRAN  ( 

DO  72  L=1«K1 

72  XPD(L)*AP*XPDCL)+1.-AP 

REA0C5*a)(DAMAGECL2»l)»DAMAGFCl.2»2)tl.  2=1»P)«TSTEAM.DTSTM  ; 

WKITFC6, 731  WAVEL*TSTFAM*DAMAGF.f  1 « 1)  *DAMAGE(  1 ,2)  , DAMAGEf  11  » 

1 DAMAGE  C 2 » 2 ) 

73  FORMAT ( 1H0 . 1 1 hW A Vt L ENGTHs t F6.0» 2HNM , 3 x ♦ 7HT S T F A Ms , F A . n , X X * 7 HD  am A GF  = 

1 »4F9,U) 

***  CALCULATE  I,J  TNOiCtS  AT  *HJCH  DAMAGE  CALCULATIONS  ARE  TO  PE  MADE 
JMsy 

do  7a  .rsi,N 

IK  CRC J) .LT .RMAX  + . 00000  1 ) JMsJ+l 

74  CONTINUE 
X1  = 0. 

DO  75  T=IPA»M 

IF(VCCI?1*KM).G7.X1)TMAX=I 

IF(Vr(T*lfKM).GT.Xl)Xl=VCCT»l»KM) 

75  CONTINUE 
L=0 

I D l s I M A X - L I M A X 


MADE 
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2 6 b • 

287. 

286, 

269. 

290. 

291. 
292  . 

293. 

294. 
*9b. 

296  . 

297  . 
29tt. 

299  o 

300  . 

301 . 

302. 

303. 
30  9. 
30  3 . 
30b. 
307  . 

308. 

309. 

310. 
311  . 

312. 

313. 

314 . 
313, 

316, 

317, 
316, 
319, 

320  , 

321 

322 

323 

324 
32b 
32b 
32  7 
326 

329 

330 

331 

332 

333 

334 
33b 
33o 
337 
336 
339 
iuu 

341 

342 


1U2=IMAX+LIMAX 

DU  7 fa  I = ID  It  102 
DU  76  J=1.JM 
L = L+1 
IU(L3=I 
7fe  JL)  (L)  = J 

LlJs( ID2-I01+1)*JH 
IF (LlJ.bT.20)wHlTt (o./O) 

IF(LIJ.'JT.?u)&TuP 
IFCLPX.tO.rtjGO  TO  129 

***  TfcMPEKA  IUKF.  AinD  DAMAGE:  tVALUATIONS  FOP  MULTIPLE  PULSES 


«**  F. V A l U A T t TEMPERATURE  RISES  WITH  AMD  WITHOUT  GRANULE* 

DO  77  L=1  *LM 

laJO(L) 

JsJD(L) 

V fc  ( L « 1 • 1 ) s 0 . 

Vd(L»  1*2)  sf». 

OU  77  K s ? i K T 

V t ( L • K . 1 1 = 9 C ( I . J . lO 
VE(L»R»2)=VCf  I » J « R ) 

IF  U.NE.IGTGO  TU  77 
VE(L*Kt2)sXPCHK)*vCCItJ.K) 

IKVE(L»K»l).LT.,0)VF(L.Kf1)*0. 

IFCVt(L»Kf2).LT..0)VFCL»K»?)s0. 

77  CiWlNUt 
X60a(xC-l  . VD1X 
Xol=ALOG(XC: 

XSTtAM=T  STF aK 

UU  106  L13si.NTt.Sr 

X3  = UPULSK+fNPULoE(L13)-n/PEPETCL13) 

WR I T E C 6 * 78 ) nPuMCL 1 3) . X3 * DPIJLSE » NPUL SF ( L 1 3 ) * R F P F T f L 1 3 ) 

78  FORMAT  C lHu.bHiMPUMs,  I3*2X.  13hTRA1N  I EN(iTh=  » E8 . 3 • 3HSFC  t 2X  , 1 SHPl.'LSE  W 
1 lUTH=*Fb.3.2X,3HStr,/1  X*  17KMUMtiFH  OF  PULSFS= » T5. JX t t 6HRFPFTTT TON  Pa 
dTt=  » Eb  . 3 » 10HPUL.  SE5/SFC) 

IF ( lFiL.FL.0) GO  Tu  60 

WRITE  (R»79)  In TM.LFSIUN  « 

7V  FORmATUH  , 1 ? H 4 L A M R A O I USs  » E 8 . 3 » ?HC  M . b V * 1 UHLF  S 1 0 N R AO  1 1 ISs  , F 6 . 3 • 2 HC 
1M) 

GO  TO  A2 

60  WRITE(6*81)RTm .LESION 

61  F u K M A T ( 1 H . l3HlMAbE  R A D 1 1 ’6  = t E 6 . 3 * 2HC M . 9 X . l a hL E 9 1 n N R ADlUSs , £A  , 3 . ?n 
1 CM) 

62  TL=1  ,/RF.PET  (L  13) 

NPL=NPULStf L13) 

K x = N P 1 3 

lM=  1 

63  IF  (NPL/1M.L1  .20)GU  10  * A 

I IN  = 1 N + ? 

GU  TO  63 
a 4 X1  = )NPL 

lNX=.b+Xl /TU 

Ll  = ALUr,(i;RULSc)/vb93!SR2R. 

I F ( L 1 . LI . 1 ) L 1 = 1 
INXX  = FTIMtai)*INX 

**  STORE  TI^E  INTERVALS  aNQ  LOGS  np  INTERVALS  FOR  DAMAGF  CAI  CULATTONs 
ZlX(l)sPTlMt. 


Klo 


turn 
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I 


1 


I 

1 

1 


343, 

344. 
3US. 

346. 

347. 

348. 
344. 

350. 

351 . 

352. 

353. 

354. 

355. 
35b. 

357. 

358. 
354. 

360. 

361 . 

362. 

363. 

364. 

365. 
366  . 

367. 

368. 
364. 
370  . 

371. 

372. 

373. 

374. 

375. 

376. 

377. 
378  . 
374  . 
380  . 

381 . 

382. 

383. 
3B4. 

385. 

386. 

387. 

388. 
364. 
340. 
341  . 
342. 
393. 

344. 

345. 

346. 
397  . 

398. 

399. 


ZT(1)sPTIMF/2. 

ZTTCnsALOG(lN*HTIMfc) 

DO  85  L3=i.NP 
ZTTCL3)=AL0G(IN*PTIMF) 

ZTX(L3)=7TX(L3-n+PTIKE 

85  ZT(L3)3ZTCL3-1>+PTIME 
L 1 s NP+  1 

X3=(TC-DPULSE)y (KX-NP) 

ZTXan=DPULSt  + X3 
ZT  CL1  JsilPUL  Sc  + X3/2. 

ZTT(Lll=ALOG( IN*X3) 

LIbLI+1 

DU  86  L3=L1 tKX 
ZTTCL.3)sauOG(-IN*X3) 

ZTXCL3)=ZTX  (U3-n  + X3 

86  ZT(l3)=ZT(l  3-15+X3 

**#  CALCULATE  TEMPERATURE  RISES  ASSOCIATED  WITH  L3-TH  TIME  INTERVAL 
***  FOLLOWING  (L6-.5)*IN-.5  PULSE 
DO  95  L=1 tLIJ 
DO  95  L3sl.hX 
X 1 = o . 

X2  = 0. 

Llsl+IN/2 
L7  = l 

87  X3=(L7-1) *TC+ZT CL'3) 

K=ALOG(X3*X60+l.)/X61+l. 

X5avE(L*K.n  + {X3-XT(K))*CVE(L*K+l»n-VE(L«K,l)I/(XT(Ktt)-XT(K)l 

X 1 = X 1 + X 5 

Xi=(L7-n*TC  + ZTX(L,i) 

KaAL0G(X3*X60+l  « ) / X 6 1 + 1 . 

xaax?+VE(L*K«2i  + (X3-XT(K))*(VECL»K+l»2)-VE(L»K»?5)y(XT(K  + n-XTfK)) 

IFCX5.LT..0001*X1)GU  TO  88 

L7=L7+1 

IFCL7.LE.L1) GO  TO  87 

88  VZCL* 1 »L3f 1)5X1 
VZCLfl ,L3.?)=X2 
DU  93  Lfc=2*INXX 

IF  (X5.L  T . ,0Q0l*Xl)GU  TO  91 
X UVZCl.  .Lb-1  * L3  * 1 ) 

X8=VZ(L?L6-1 * L 3 * ? ) 

L2=L1+ 1 
L1=L1+IN 
L7  = L2 

40  X3=(L7-1) *TC+ZTCL3) 

KsALOG (X3*XfeO+ 1 .) /Xbl t 1 . 

X5  = VECL»E'  D + CX3-X.TCK) ) *CVF(L»K+1  , 13-VECL.K,  l) ) /f  XT(K+I  J-XTCK)  ) 

X 1 = X 1 + X 5 

X3=(L7-ntTC+ZTXCL3) 

KsAL0G(X3+X60+l ,1/Xfel+l . 

X2aX2+VE(L*K»2)  + (X3-XTCK))*CVFfLtK+1.25-VE(L*K.2n/(XTfK+n-XTfKl) 

IFCX5.LT. .OOOl*Xl)GO  TO  91 

L75L7+1 

IF C L 7 . 1 E.L1 1 GO  TO  90 
91  VZCL*L6.L3,n=Xl 
93  VZCL»L6,L3.2I=X2 
L1=INX+1 

DO  94  L 6 = L l ♦ IN XX 

cay 


8 


] 


I 


l 


1 

I 

I 


400  , 

401  . 

402. 

403. 

404. 

405. 

406. 

407. 

408. 

409. 

410. 

411. 

412. 

413. 

414. 

415. 

416. 

417. 

418. 

419. 

420. 
421  . 

422. 

423. 

424. 

425. 

426. 
427  . 

428. 

429. 

430  . 

431  . 

432. 

433. 

434. 

435. 

436. 

437. 

438. 

439. 

440  . 

441  . 

442  . 

443. 

444. 

445. 
446  . 
44  7. 
448. 
449  . 
450. 
451  . 

452. 

453. 

454. 

455. 

456. 


1 MAIN (RETINAL) 


LB=L6-TNX 

VZ(L»L6»l3.n=VZ(L»L6tL3»n-VZ(L«Lfl»l.3»l) 

94  VZCL*L6»L3.2)=V2CL»L6»L3.23-V7(L‘L8.L3*2) 

95  CONTINUE 

***  DAMAGE  CAL CULATlONS  -------------- 

TSTEAMsXSTEAH 

X lis  0 . 

96  WhITE(fc*130iTSTfcAM 
DO  104  L= 1 * L I J 

isiDCL) 

JsJO(L) 

IF(VZ(L»lNX.Np.l).LT..00nOD(I»J)  = 1.F  + 20 
I F ( V 2 CL* INXtNP. 1) .LT. .0011  GO  TO  104 
L9=10.+  C .4+EXPC-.00l4*DPULSE13 /VZ(L  t TnX.NP.  n 
CO=L9+l . 

X 1 0=70. *(.«+EXP (-.001 4*DPULSF )) /VZ (L « INX » NP» 1 J 
IF (L9.EU.O)CQ=X10 
LLTbO 
LGT  = 0 

99  DAMC=0. 

L6=  1 

100  DO  101  13=1  * K X 
X 3=  0 , 

IF(VZ(L»I.6«L3»?)*CQ.G'J  .TSTFAM-I05X3=1  ,F+30 

IP (VZ (L«L6.L3,2)*CQ.GT .TSTFAM-TolOD  To  1 0 1 

XS0  = YZU*L*»L3«n*C<i*273.  + T0 

IFCX50.l_T.3l7.3G0  T 0 1 0 1 

XlBZTTCL3)*DAriAliE(l»1)-O4MAGF(1.2)/X50 

IF(X50.GT.323.)Xl=ZTT(l 3)+OAMAftE(2» 1)-DAMaRE(2«2)/X50 

IFCX1.GT  . 0 , ) X 3 = 1 .01 

IFCX1 .GT.O.JRO  TO  101 

x3=t:xp  (xn 

101  DAMC=DAMC+X3 
IFCDAMC.GT. 1 . ] G 0 TO  102 

***  INCREASE  TIME  INDICES  AmO  CONTINUE 
L6=L6+ 1 

IP  CL6.lt. INXXJRU  TO  100 

***  ADJUST  LASER  POWER  TO  YIELD  THRESHOLD  DAMAGE  AT  RIVEN  POINT 
IFCLGT.EO,  1 3 Cil=l  .02*03 
IFfLGT.EQ.lJRO  TO  103 
LLT  = 1 

CU=  1 , oa*CQ 
GO  TO  99 

102  IFCLLT.&G,1)C0=.9B*CQ 
IFCLLT.fcO.13GO  TO  103 
LGT=1 

CQ= ,9b* CO 
GO  TO  99 

103  QDCif Jl=CQ*POX 

104  CONTINUE 

WNITEC6*  633  ( R ( J 3 * J = 1 . JM) 

DO  106  1=101*102 

Xl=ZCI)-ZCTPF)+DZ/2. 

wHITEC6»1053Xl.(0D(I,J3»J=lfJM) 

10b  FUHMATC1H  »2HZ=»F7.5. 1X,7HQD=*8E8.33 
10b  CONTINUE 

X2=(XQ-GO£lMAX.13)/aO(lMAX.n 


K?.0 
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457. 

458. 

459. 
4 fc  0 . 
461  . 

462. 

463, 
464  , 

465. 

466. 

467. 
468  . 
469. 

470  . 

471  . 

472. 

473. 
474  . 

475. 

476. 
477  . 

478. 

479. 

480  , 

481  . 
4 6 2, 
483. 
484  . 

485. 

486. 

487. 

488. 

489. 

490. 
491  . 

492, 

493, 
494  . 

495. 

496. 
497  . 

498. 

499. 

500. 
501  . 

502. 

503. 

504. 

505. 

506. 
507  . 

508. 

509. 

510. 
511  . 

512. 

513. 


X3=X2*X£ 

IKX3.1T..OOODGO  TO  10  8 

TSTfcAMsTSTEAK+DTSTM 

XQ=QD(IMAX,15 

GO  TO  96  - 

106  CONTINUE 

IFCKTYPE.EO.niGO  TO  174 

***  CALCULATE  AND  STOKE  TEMPERATURES  FOR  PLOTTING  TFMPFRATURF  PROFILES 
T^sU/RtPETCl) 

NPL  = NPULS£(  1 ) 

DO  123  L 1 5= 1 * K TYPE 

lF(r -MFXCH5).G1  .XT(KT)  )GO  TO  123 

MGV*0  . 

l2=TIMFX(L15)/TC 

0TIMEsTIMEX(L1S)-L2*TC 

L2=L2+1 

00  116  1*111*112 
DO  116  J=JJ1*JJ2 
XlaO. 

DO  113  L6=l ,C2 

K*ALOG(  COTlME+rL6-l)*TC)*X60  + l .J/XM  + l. 
X2s(DTTMfc>(L6«l)*TC»XT(K))/(XT(K+l)-XT(K)) 

113  XlBXl  + VCU*J»K)  + X2*(VC(I»J»K  + i)-VC(I»J*Kl) 

V C I • J)SX1 

L3  = L2-mPI. 

IF(L3.Lt.O)GO  Tu  115 
X 1 = 0 , 

DO  11a  L 6=1  ,1.3 

K= ALOKC  CDT IMF+  CL6-1) *TC) *X60  + 1 .) /X61+  1 . 

X2*(DTIME+(L6-1)*1C-XT(K)  )/(XT(K+n-XT(K)J 

114  XlaXl+VC(I*J*K)+X2#(VC(I,J.K+l)-VC(I*J»K)) 

V(ItJJ»V(I,J)-Xl 

115  IF  C V C I . J)  .GT.KGVJRGVsVd,  J) 

1 16  CONTINUE 

IF  (KTYPtO.FG.DGO  Tu  121 

ITE  (1  * 11  7)  MRUN(  1)  , NPULSE  ( 1 ) » PFPET  ( 1 ) 

117  FDRMAT(2I7»F7.1) 

WRITE ( 1 i 1 18) DPULSE, RAVEL,  RIM 

118  FORMAT ( 1 0E8. 3) 

WRITEC1. 119)111, II?, 113, JJ1.JJ2 

119  FORMAT  f b I 7 7 
WRITE (1,119)N3»M3 
WRITFCi ,120) ( R { J ) , Jsi , N3) 

120  FORMAT  f 10F7.4) 

WRITE  C 1 » 120) ( 2 (I) , 1=1 , M3) 

WR  I TF  ( 1 »UB)TlMtX(H5) 

121  DO  122  1*111,112 

WHITl (6, 124) (V(1,J) ,J=JJt , JJ2) 

IFCKTyPEO.FO.DGO  TO  122 
wRnFn.i2U)(vn»j)»j=jjt,jj2) 

122  CONTINUE 

123  CONTINUE 

124  F0RMATC10F7.1) 

GO  10  174 

***  DAMAGE  CALCULATIONS  for  SINGLE  PULSE 


125  WR  I TE  ( 6,  1 26)  NR  UN  Cl ) , DPULSF  , IMPULSE  ( 1 ) 


K21 


I *7* 


I 

I 


1 

l 


SKI. 

515, 

516, 

517, 
516, 

519, 

520, 
521  . 
522. 
5?3. 
52a, 

525. 

526. 

527. 

528. 

529. 

530. 
531  , 

532. 

533. 
53a, 

535. 

536. 

537. 

538. 

539 . 

540  . 

541  . 

542. 

543. 

544. 

545. 

546. 
547  . 

548. 

549. 

550  . 

551  . 

552. 

553. 

554. 

555. 
556  . 

557. 

558. 

559. 
560  . 

561 . 

562. 

563. 

564. 

565. 

56h  , 

567. 

568  . 

569  , 
570. 


MAIN  (RETINAL) 


126  FORMAT(lH0.5HMRUN=.n,2x.l2HPULSE  W I DTH=  . E « . 3 , ?X  . 1 7HNUMRF  R OF 
1ES  = . 151 

If  < IF  II. , F 9.0  3 GO  TO  127 
WWITE(6f 79)RIm. LESION 
GO  TO  128 

127  WRITE(6»61)RIH. LESION 

128  XU  = 0. 

129  WRITE (6» 1301TSTEAM 

130  FORMAT ( 1H0,7HYS1EAM=.F7.0/1 X, 10H------- ) 

00  138  1=101.102 

DO  138  J=i.JM 

IFCVCCT.  J.km)  ,LT..00nO|)(I.J)  = l.Et?0 
IFfVCCI.  J.KM)  .LI  ..OonGO  TO  138 
L9=10.*(  ,«  + EXP(-.OOia*DPiJLSEI)/VC(I»  JiKM) 

CQcL9+1  . 

X 1 0 = 7 0 .*  ( .4  + FXPC-.O01  a*OPULSE)  3 /VC(  If  J.KM) 

IFCL9.EQ.0)CO=X10 
LLT  = 0 
L GT  = 0 

131  DAMC=0. 

K = ? 

132  X13  = ALnGfXT(K)-XT(K-l)  ) 

VPX=(VCCI»J.K)+VC(I»J»K-l))/p. 

X3=0. 

IK  C I.NE.1G5GO  TO  133 

IF  CVPX*XPDOO*CO.GT.TSTF.AM-TO)X3=1  .E  + 30 
IF (VPX*XPO(K)+rO.GT,TSTEAM-T0)GQ  10  134 
1 33  X 50  = Vr  •'♦CG+273.  + T0 

IF  (X50.LT.3l7.3Gn  TO  13a 

X1sX13  + DAM.AGE(1  . 1 )-DAMAGFCl*3)/X50 

IFCX50.G1 . 323.3X 1 =X  1 3+ DAMAGE (2  * 1 ) -DAMAGE ( 2 t 2) /*50 

IFCX1.G1  ,0.)X3al.01 

IF (XI .RT.O.JGO  10  134 

X'istXPfXi) 

134  DAMC=DAMC+X3 
IFCDAMC.GE.l.JGO  TO  135 
K = K + 1 

IF  CK.LT.KT) GO  TO  132 

***  ADJUST  LASER  POWFJW  10  YIFLD  THRESHOLD  DAMAGE  AT  GIVEN  POINT 
IFCLGT.EQ.lJCQsl ,02*CQ 
IF  (LGT.EQ.l)GO  TO  136 
LLTsl 

cu=l .oa+cu 

GU  10  131 

135  If  (LLT.EQ. 1 )CQ=.98*CQ 
IFdLT.EG.ljGO  TO  136 
LGT=1 

CQ=.96*C0 
GU  TO  131 

136  UUt  I»  J)=CU*F>OX 
136  CONTINUE 

WKITFC6.63)  (H(J) .J=1,JM) 

DO  143  1=101*102 
X1=Z( I)-7( IPE 3+D7/2. 

WHITE  (6 .1053X1  , CQDU.J)  »J=1  .JM) 

143  CONTINUE 

X2=  (XQ-QOUMAX  . 1 ) ) /UlM  IMAX  » i 3 


PULS 


K22 
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I 


! 

I 


V 

t 


T 


T 

i 


i 

1 

i 

1 


b7  1 . 

672. 

b 7 3 • 

b7«. 

b 7 b » 

b7o . 

1 bo 

57  7. 

* ** 

b7b. 

b79. 

bbO . 

be  i . 

b«2. 

bS3. 

bttft . 

bfb. 

bbo , 

b87. 

bbd. 

166 

b«9. 

•■5  90. 

* + * 

591  . 

b92. 

b93. 

b94. 

b9b. 

b9o  • 

bW. 

1 

b98. 

167 

b99. 

600  . 

(50  1 . 

6 0 2 . 

1 6 (5 

603  . 

17  0 

aoa . 

*** 

60b . 

17  4 

606  . 

607  . 

606  . 

o 0 9 , 

6 1 0 . 

oil. 

612. 

oli. 

614. 

175 

6 !.  V>  • 

6 1 C « 

176 

617. 

6 1 6 . 

619, 

620  . 

621  . 

622. 

623. 

624, 

177 

62b  • 

1 7 8 

626. 

627. 

ISO 


17« 

TLmKErATURFS 


FOR  PLOTTING  PROFILF 


)/ALCG(XC)+l 


I 


X3=X2*X2 

IF  CX3.LT.  .0001)1,0  Tu 
H>TtAM  = TSl  If  A^  + Pl  STM 
XL  = Qfi  C I i'iAX  ■>  1 ) 

GO  TO  129 

IF  CKTYPt.EO. 0)0,0  TO 
CALC  U LAI  t A .’mi)  STORE 
OU  170  U S=.-l  ,rTY?E 
RGV=0. 

0 T I M E = T 1 M t X ( L 1 S ) 

KsALOG(OTIMt*(XL-l .) /DTX+1 
IK(K+l.i,r.<T)GO  TO  170 
Xls(|)TTrtF»XT(K))/lXT(K+n-VT(KT) 

DU  166  ISJ.I1, 112 
Du  16b  JsJJl.JJe: 

V(IvJ)3VC(TrJ*K)+xl*(VC(T,J,K+l)-VClT*JfK)T 
IPCVU, j)  .01  .RGV)RGV=v(l. J) 

CON] INUL 

lRCKTYPtn.Fu.nuil  TO  167 

CALCULATE  6 1\  0 S10RF  Te.RPFR  aH'RFS  FOR  PLOTTING 
WRIT  F.U  » 117  J MhiinC  1)  , NpULSfc  ( 1)  fHLPtT  ( 1) 
w H I T E C 1 ,1  18)DPl|LSfc»i'>AVFL»KlM 
WRI  TE  ( 1 » UP)  III  » Ii2»  T U,.TJ1  , JJ? 

W rf  I T E ( 1 , 1 1 a ) N i » N 3 

WRITE  (1  , 120)  CkC  J)  t.Jsl  , M3) 

WRITEU  ,120)  fni)  ,1-1  ,M3) 
wkH  E ( 1 ,1  16)T  lMtX  C115) 

DO  1 tab  1=111, 1 T 2 
WrITECA, 1 24) (V(1,J)« JsJJl ,0JP) 

IeCKTYPtCi.fcw.nGlT  TO  162 
W R n E C 1 , 1 2 0 ) C V ( l , J ) , J = J J 1 , J J ? ) 

CUN1  INlIt 

CuNTlNUt 

INTERPOLATE  A x 1 At, 

Ib=U 
1(5=0 

IF  C 101  .to.  I 02)  (’u 
DU  17b  l = 1 n i .i  j o 2 
L 1 = 101  + 102-1 

IFCU0CL1  * 1 ) .PI  .COX)  15  = 1.1 

iFCuoan  n .lt.pox) ia=h 
IF- Clone  I f n .UT.PI.Y)  T7  i 
If-  CUD  Cl  * n .LT.PuX  ) Its:  I 
CONTlMIt 

I F C i 5 . F w . o ) iv  K 1 T t ( o , 1 7 tj ) 

FURMAT  C l R 0 » uSHDtPTHS  UP 
IFC  lS.P'J.Ol'.L  TO  182 
IF  C Ib,F';i».  u)  C-U  0 IPO 
IF  ( lb,  Gt.  )>)  r-u  10  17ft 

X2  = AL0GC0Df  ic,  1J/IJIH  Tb,  1)  ) /C7  (Tfe)-7nbn 

X 1 = 0 D 1 1 b , 1) 

Xi=ALOC(Fax/Vi )/X2tZ(15)-Z(IPE1+0Z/2. 

K R 1 1 E C 6 , 1 / 7 ) X 3 

F U P M A y ( 1 h 0 * 2 4 H ■VU  N I 'T  (j  R OK  DAMAGES*  E.R. 3*  ? H C M Y 

IF ( 16. Gt . 17) GO  TO  162 

X 2 = ALOIS  CUD  Cl  B - 1)  /'»f>C  T7»  1)  ) /iZCJ6J«ZU7l) 

X 1 =UD  t T /,  n 

K.23 


PROFILE 


EXTENT  OF  DAMAGE 


to  in 


DAMAGE  beyond  PGTm  SPECIFIED  DEPTHS) 


MAIN (RETINAL) 


1 


b?a. 

Xi  = ALOf.(POX/Xll /X2+ZC  i7)-Zf  IPE)+OZ/2. 

r 

o29. 

l ao 

'wKlTtCfa’lo1)X3 

«««  M 

J 

fa  3 0 • 

1B1 

FuRMATC 1H0*2^HmAXJMum  ntPTH  OF  DAHAGF=«fcfl.3«»hCMl 

iff- 

e>3  i . 

+ ** 

InT£RFC'LATF  PAOlAL  EXTENT  OF  IPREVFRSIBLE  DAMAr,£ 

at  SpFCTFTEH  DEPTHS 

*«r* 

t>32  • 

182 

OU  189  I=ID1»ID2 

V 

633. 

J1S0 

m *■ 

t>3a. 

Xiazcn-7(IPE)  + 0Z/?. 

fa3b  • 

DU  163  J-  1 * J M 

J" 

f 

o36  • 

IF  (pOX.UT,nt;(  I . J)  ) JisJ 

** 

637. 

183 

CONTINUE 

o3B. 

X2Q-Q , 

-- 

639. 

IF  (Jl.FU.OH;n  TO  I 8 7 

6^0. 

lF(Ji.FU.JF')^^nF(6»165)Vi,H(JM) 

"»  - 

ts  a i - 

1 6 b 

FORMAT  aH0.2HZ“tF6.3.2HCM,SX»36H9Ar>lAL  EXTENT  OF 

0 A M A G P ORr  A T£P  TH 

su'd. 

lANtE8.3f2riCl'0 

j' 

*93. 

IF  (J1  . F U , J M } G U 10  169 

baa. 

X2=  ALGO  COD  ( I » J 1 + l ) /ur>(  T t JIT  ) / (P  1 J 1 + 1)  “HC  Jl)  ) 

aab. 

XlsOD(I»jn 

fa  a 6 . 

X20  = ALnG(POX/Xl)/X2  + 9(Jn 

faa7. 

167 

WK"1FC6.18fi)XitX20 

m m m 

fa«8. 

1 86 

FURMATf  lH0.2H2=»F6.i»2HCMtbX*37HRAlUAL  E X T F N T OF 

IRRFVFRSIRLF  D A M A 

7 

&a9. 

lGEstF.6.3»2HCF') 

t 

bSO. 

1 69 

CUNT IwUt 

fa5i  . 

5 TOP 

fab 2 • 

190 

wKlTF(6t 1 91  ) 

• * *» 

fa5i  , 

191 

FORMA ) { 1 Hu  » 3 1 fa's-U  I1AMAGE---LASER  POWfc.R  TuO  LOW) 

aba. 

SHIP 

fabb  • 

E is'  Q 

I 

i 


K24 


SUBROUTINE  GRID (RETINAL) 


I 


7 . 


lU  . 
- 11  . 
12. 

... 

la, 
*■  lb. 
, - 1 6 . 

17. 
y 18. 
r.  19. 
20. 


SURpiOUT  INF  GSIO  „ 

¥**  grid  CDmPUUS  THE  CUEFFICIPNTS  IN  PARTIAL  DlFAFpcNTIAL  EQUATIONS  A AND 
*¥*  RADIAL  AND  AXIAL  LDuSOTNATFS.  fi  and  Z*  and  ASSIGNS  CONOUr.TTVTTY  And 
*¥*  VULUMtTHTC  SPECIFIC  H£AT  TO  GRID 

COMMON  A(2{?»^)fAP*AAVfACWfApe»ASC*ATS*AVL»R(11«3'*BB«BV(11-»31» 
lCUNX£o)*CuN(<N'!»CuTtniMtDFLOWO)»DPULSE«Dk»OT»nTVfPZ*FI. 

21  A3(29»  1 1 ) * IBlOOiHR)  . IFIL*  IG*  1GX  » IHT  • IPA*  IPC.  IPE  . IP«0F.  IPS  . IPT  • 

iIFV*lV(29).jVL*LIMtLPA»LpC*LPE«LPS.LPV«LFXtLTHAX.K?KMfKT.M.MltN2. 
UMitNtNl .N3, t NVL.PUV ,PR  f 1 1 ) . PTIM£.QP.R ( 1 1 1 tRCO  » PIM»RN.RP£«HRT ♦ 
riR'/LfRSC.S(?9.11)»SNB.TAV.TCH.TOM*TPE*TVL*TS(?200,lfTsr»TTS(VCP9.11) 

6fVCC29*n?HO)»VSH(?S)»VSNX(6ltWAVEL.XC.XFLOiN.XFLnwI(F).XFLOWO(A). 

7XFD(80l«XT(t,0),4(2P).ZD(A).ZM 
OlMt.NSTUN  T x ( 7 1 « L X ( 7 3 

H ( 1 ) = 0 . 

CtSSN-N  1 

CP=HVL/D»-N1+ 1 , 

X 1 5 2 , 

180  R2sEXP(ALUR£3.*CCP*  CX1-1 . ) + l .) /(VI  + 1 •) 5/(CK-1 .) ) 

lr(K2/Xi.GT..99VP9,AND.R?/Xi.LT.l.nOOol)GO  TO  183 


..  21.  X1  = W2 

22.  GU  TO  1 o 0 

■ 23.  183  wkITECS*  1 » a 3 » is 

24.  Id4  FORNATCIH  ,3HR2=.F8.4) 

2b.  rnsDW*CN1-1  .+  CP2*»(CK+1.1-1  .I/CH2-1  .5) 

’ 2e».  ***  CALCULATE  RADIAL  SPACE  STEPS  R(J) 

27.  DU  1 flb  J=2tN4 

--  2ti . 18S  pij)=orhj-i: 

: 29.  X1SR2+DN 

*'  30.  DU  16b  J a N a , N 

31.  PCJ+l)Shl£j)+Xl 

T 32.  186  XlsK2*Xl 

..  3i.  ***  CALCULATE  COEFFICIENTS  8 OF  FINITE  DIFFERENCE  FUNS. 

34.  Xl  = 2./(L)R*OfO 

*>  3b.  DU  187  Js2 • N 1 

36.  BC J*  1 3 3.25*(  2*J-3)*X1 /(J-l) 


3/.  8(J*2)=X1 


^ 36.  167  b I J » 3 ) = a 1-B C J » 15 

34.  X23DR 

*■  40.  Xl=R2*Dk 

41,  DU  168  J 3 n 4 » N 

142.  8( J»2)s2./(X1*X2) 

43.  bCJ»n=l2./XP-1./N(J))/(vi  + X2) 

44,  BCJ«3J=6(J*2)”81J»1) 

i4b.  X2=R2*X2 

4b.  186  Xi=R2*Xl 

4 7.  6 1 1 * 1 ) 5 u . 

14  6.  8 ( 1 t 2 3 = 8 . / ( Ow *Dh  3 

49.  btl*3)=B(l»2) 

SO.  DU  189  J=liN 

51.  IF(N(JT.LI.HVLJJVL=J 

152.  109  CONTINUE 

53,  * * * CALCULATE  AXIAL  S P A C F STEPS  Z ( 7 3 
54.  CK=M2-M1+1 

1 55.  X 1 32  • 

5o.  190  CP  = 2.*TAV/nz+  1 ( X 1**  CO-  1 . ) - 1 . 3 / 1-  1 

57,  R 1=EXP( ALUG(CP*X 1-CP+ 1 . ) /CK) 


3 


GRID (RETINAL) 


SB. 

IMNl/Xl.liT. .9999^. AND. Kl/Xl.|_T.l.O0O01)GO 

TO  19? 

S9. 

X 1 s pi  1 

cl), 

GU  10  190 

fal . 

192 

ZM=((Hl+*CK-l.l/(hl-l.)+Ml-i.)*DZ 

hi. 

WHITE  (6. 1 94)  9j. , zm 

• 

6 i . 

194 

FORMAT  ( 1H  , ■3H91  = ,KR.4.2x.3HZM=»F8.4) 

6 4. 

X1  = 0Z 

6b. 

X2=X  1 

66 . 

DO  1 9 b 1=2, m2 

fa  7. 

Z(M2+n-78*X2 

66. 

ZIM2+2-1) =7M-X? 

69. 

IFC  J,.UT.Ml)xl=Rl*xl 

70. 

19b 

X2=X2+X 1 

71  . 

Z(  11  = 0. 

72. 

Z (M2+  l)s?.M 

7 3 . 

Z ( M 1 1 3 = 2 . * 7 h 

74. 

XlsZ(lPt)-nz/2.-ZU(21 

7b. 

DO  19b  1=1, m3 

7 o . 

19b 

zcn=zcn-xi 

77. 

13=  IPA 

76. 

00  200  0-1,7 

74. 

L 1 = 0 

80. 

DO  197  1 s 1 P A . m3 

81  . 

Il-CZCl)  .LT.ZD(L  + niL7sI 

62. 

IF  UC  l)  .LT.ZUIL)  .UR.Ztl)  .GE.ZDCL+n)P0 

TO 

197 

63. 

02=1 

84. 

01=11+1 

, 8b. 

197 

CONTINUE 

b ■ 

IKdl.EJ.OT  IXCUSL3 

' 67. 

IF  (01  .EO.OILXU. ) = 0 3 

86. 

IM0l.Gl.0nXCU  = L?  + 1-  Ll 

89. 

I F ( 0 1 « G 1 ,0)LX(L)=02 

90. 

20  0 

CONTINUE 

91  . 

IHV=  I X r w 5 

92. 

IPC= I X ( b) 

93. 

IPS- I x ( fa) 

94. 

IPT=IX(71 

9b. 

08A  = OX(  1) 

96. 

LPFsLXf 3) 

97. 

oFv  = oxm 

4b. 

OFCsOX  (b)' 

99. 

0PsS  = L.X(fa) 

100. 

0FT=M3 

101. 

tv* 

St T CONDUCTIVITY  CON  AND  HF A T CAPACITY 

VSH 

FOR  V ARTOUS  EVE  MF  DT  A 

102. 

DU  203  1=1, OPA 

103. 

conc i ) =cdnx c n 

104. 

2 0 3 

V8H( I1=VSHX ( 1 ) 

10b. 

DO  204  1=  I Pfc  * LD t 

10  6. 

CON ( I ) =CONX ( 2 ) 

107. 

204 

VSH(  IJsvSrIX  (2) 

108. 

DO  20b  i=IPV*LPV 

109. 

CON(I)=CO,NX  (3) 

110. 

20  b 

V8H(l)rVSHXC3) 

111. 

DO  206  1=IPC*0PC 

112. 

C0NCI)=C0;jV(4) 

113. 

2 0 6 

Vj>H(I)=VSHX  (4) 

114. 

DU  207  i=IP8 , 0p8 

K26 


GRID (RETINAL) 


115.  COKi(I)=CONX{*») 

’ J life.  207  VSH(I)sVSHXCS) 

«•  117.  00  206  I s I PT » M3 

; 118.  CON(n=COMX(fe) 

?:  119.  203  VSH(I)BVSHXCfc) 

f.  120.  ***  CALCULATE  COEFFICIENTS  A OF  FINITE  DIFFEFEMCP  FUNS. 

121.  DO  210  Is  IP  A, M 

122.  Xl=Z(I  + n-7(I-1) 

I 123.  x2B(coN(i-n-coN(i  + nj/(xi*xi) 

*•  124.  X3=2.*CUN(I)/X1 

125.  a c x * n = x?+y3/(zcn-z(i-in 

j 126.  IFCI.EQ.IPA)A(l,n=0. 

'•127.  ACI»3)s-X2+X3/(Z(l  + n-Z(in 

128.  210  A ( I * 2) s A ( 1 . 1>  + A(T.3) 

1 ' 129.  RETURN 

i 130.  END 

» 


1 

1 

I 


; i 
i 


SUBROUTINE  IMAGE (RETINAL) 


1 . 
2. 

3. 

4. 

5. 

b < 

7. 

8. 

9. 


1 0 . 

1 1 . 

12. 

li. 

19. 

lb. 

200 

16. 

17. 

18. 

19. 

201 

20  . 

21  . 

202 

22. 

2 3, 

203 

24. 

25. 

26. 

27. 

*** 

28. 

*** 

2^9. 

30. 

2U5 

31 . 

32. 

206 

33. 

34, 

3a. 

3b, 

207 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

4b. 

208 

4b. 

47. 

48. 

49. 

50. 

51  . 

52. 

210 

53. 

54. 

55. 

5b. 

212 

67. 

SUBROUTINE  ImaT-c. 

* * * IrtAGF  COMPUTES  lHfc  KFTlNAL  IRRADIANlF  PROfILF 

common  AC2R. 3). AP.AAV.ACH, APF.ASC.ATfi.AVI.  .B£1l.31tRB»BV(11.j)f 
iC0NX(6)  »C0NC29)  .CUT  fOlM.OF  LOW  (fe)  tOPULSFf  Oh.  DTfnTV,r'Z»  Ft..  H«f  11  ) ♦ 

21 ABC29. 11)  . lBLOUOCfe)  . IF1L.  ♦ IG.  mx*  IHT.  IPA.  IPC.  JP£.  1PROF.  IPS.  IPT  • 

3Ir»V»lVfe!9).JVL.LlM.LPA.LPC.LPE.LPS.LPV.LPX.LTMAX.K.KM.kT.M,M1.M2. 
ttMi.N.Nl  »Mi.N«.NiVL.POX  , PR  1 1 1)  .PTIME.CJP  ,R  ( 1 1)  , P c n , Q I m , pN , Rpg , RRj  » 
SWVL»RSCiS(29.in.SWtj<TAV,TCH.TOM.TPE..TVL.Tei(??O01»TSr.TTR,VC?9.n) 
b.VC(29. 11  .V8HC29)  .VSHXCb)  .'*AVEL,XC.XFLO^,xFLn^I(6)  .X FLO WO; A)  , 

7 X P D ( 6 u ) »Vf(60)f2(2P)»Z0(fl) *ZM 

DIMENSION  FA(SOn.FPfsOn.FX(5Ol).FY(S0n,J[H3?).NAC?2)foxt3O). 
1RXC30)  .XF  1 (SOD  .Xr  2(501  ) 

REAL  JO.NA.NP.NC 
DU  200  J = 1 . N 
PK ( J ) :0 i 
LI=500 
LilsLI 

DU  201  L=  1 . L I 
FX(L)=0. 

HEAU(5.202)PUPIL 
F u k M A T ( 1 0 H 8 , 3 ) 

WKITECfr. 203JPUP1L 
FURMAT(lH0*bHpuPIL=»F7.3) 

R I N T = P DF  T L.  / ( L I - 1 ) 

IP  ( I P R n F .PD.DGU  TO  ?1U 
IF ( I PR  Of  .EO.OjGu  TO  21° 

InTEWPOLAIF  IRREGULAR  LARfcP  PROF  ILF  (SYMMETRIC  TN  R ) AT  IMTFRVaLS 
OF  HINT  STARTING  AT  R=0 
RfeAD(b,205)LR 
FORMAT (17) 

RtAD(5.20b) ( R X ( L ) *l.=  l »Lh) 

FORMAT ( i 0d7 . 3) 

R t.  A D ( 5 » 2 0 6 ) ( P x ( L ) ,L=l  ,LP) 

XI=PX(  l) 

DO  d 0 7 L = 1 * L R 
PXCL)=Px(L)/Xl 
Xb  = 0. 

X b a 0 • 

DO  208  L = 2 * L R 

X2=(PX(,L)-Px(L-n)/(RX(LT-RX(L-l)) 

XlaPXtL)-X?*Rx Cl) 

X3sxl*(RX(L)*kX(L)-RX(L-1)*RXa-l))/?. 

X4=X2*(wX(!  ) *l<X  (I. ) *RX  (L)-RX  ( \ -1)+KX(L-1)*RX(I  -1)1/3. 

IF  (RX(L).GT,  PUPIL)  Xo  = XA+F..?832*(X3+XU) 

XbsX5+b.?832*(xi+xu) 

QpsPOX*.?3ROA*(l.-RCO)/XS 
XX=  (XS-xb) / X 5 

lF'(RX(LR).LT.POPlLTLIi  = RVCLR)/RIMT+l 
L2  = 2 
X 1 = 0 . 

DO  213  L= 1 « L 1 1 
IF (RX (L2) ,GT ,X1 ) GO  Tn  21? 

L2  = L2+  1 

IF ( L 2 • L F .LP)G0  10  210 
GO  TO  213 

X2=(X1-kX(L2”1'))/(RX(L?)-RV(L?”1)) 
Fx(U-PX(L2-l)+X2*(PX(l.21-PX(L2-n  ) 


1 9A 


1 9A* 


1 9A** 


1 9A** 


K28 


•■MW. 


r^agi.” 


IMAGE (RETINAL) 


Sd.  213  Xl=Xt+R]Nr 

59.  GO  TO  223 

60.  ***  CALCULUS  GAUSSIAN  L A SFR  PROFILE  AT  INTERVALS  OF  K I NT  STARTING  AT  P=n 

61.  214  SIRMA  = RIM*SDB1  C - 2 . / ALOG  ( CUT  ) ) 

6 <2.  wkITE(6*215)  S1G^A,«im  - .... 

63.  215  FURMAT(lHU»6*SlU*A=»Fd.3*SX»AHPlM=#t8.3) 

6«.  QP=2.*POX*  .2390  6*  C l .-RCOI  / ( 3 . 1 a 1 6*S  IGM  A*  S IGM  A ) 

65.  Xa*1  .-FXPC-2.  + PU“iL)FPUPlL/(SIG«A*SIGMA) ) 

6b.  IFdFIL.FQ.nSO  TO  217 

67.  Du  21b  J=1»N 

66.  X3=2.’t‘R(Jj*K(J)/(:SIGMA*STGMA) 

69.  IF(Xl.r,T.30.JS0  TO  21  b 

70.  PkCJ)5FXP(-X?) 

71.  216  CUNT INUE 

72.  GO  TO  276 

73.  217  Xl=u. 

7a.  DO  218  1 = 1* LI  I 

75.  Xi  = 2.*Xl*Xl/(SIGN<A*STGMA5 

7b.  PX (l) =0 . 

77.  IF (X3.G1 .80 . ) GO  TO  210 

78.  FX(L)=FXP(-X3) 

79.  216  Xlsxl+RINl 

80.  GO  TO  227 

61.  **  + SPFCIFV  UnTFDRM  LASt«  PROFTLE  Fh(V,  r ( 1)  To  H f L T M 

62.  219  QPePOX* .23906+ ( 1 .-RCO) / ( 3. 1 aib*Rl0*RThl 

83.  XX=1. 

8a.  1F(kIM.GT,pu0IL)Xx  = PI'PIL*PUFIl/(RIm<,r1m) 

25.  IF  (IFIL.Eu.nGO  Tu  221 

6b.  DU  220  J = 1 . L I M 

87.  220  PK(J)  = 1 . 

06.  GU  TO  276 

89.  221  L1=kIM/KTNT 

90.  RINTsRTM/Ll 

91.  LiI=RIP/RlNT+l 

96.  DU  222  L=l.Lll 
«3.  222  FX(l)  = 1 . 

9a.  GU  TO  227 

95,  ***  C A L C IJ  l A f F.  tqtaL  AREA  FA(L)  AND  PORTION  OF  LASERS  pnwFR  ft  F T N fc  F N R=0 
9b,  ***  AND  (L-.F)*kTNT 

97.  223  IF ( 1FIL.PU. 1) GO  TO  227 

9y.  FH(n=3.laic*FXCn+KTuT*PINT/a. 

9 9,  r-  A ( n = 3 . 1 a 1 6 * M N T + R 1 N 1 / a . 

I'JO.  DU  224  L = 2.LU 

10  1.  Xl=  U,-.5)+PINT 

102.  X2  = 1 L»  1 ,5)+RTnT 

10  3.  FP(L)sFP(L-n+FX(L)  + 3.iai6*(Xi  + Xl-X2  + X?) 

104.  224  FACL)=FA(L-n+3.l4lfc>f-(Xl+X1-X2*X2) 

105.  + **  CALCULA7F  PruFTLF  P K C J T 

10b.  X 1 = 0 . 

107.  X 2 = 0 . 

10  0.  DO  22b  0 = 1 » N 

109.  X3=CR(J1+R(J+1))/(?.*RTNT)+.S000001 

110.  I F(X3.LT.l.)Xi=  1,  0 000001 

111.  L2  = X3 

112.  IF(L2.Gt.LTI)GO  Tu  2?b 

113.  X4=X3~L2 

1 1 4 . X5=FPlL2)+v^+(F0(L?tn-FP(L2n 


K2y 


IMAGE (RETINAL) 


115.  X6=FA(L2)+X4*CFA(L2+1  )-r  ACL.2) ) 

116.  PR(J)=(X5-Xl)/(X6-X2) 

117.  X1=X5 

118.  X2SX6 
119. 225  CONTINUE 

120,  GU  TO  276 

121,  ***  SPREAD  FUNCTION  CALCULATIONS 

122.227  REAOC5. 202)20. FLO»FC*NB.CABER»PP»PC  l’’0* 

123.  C ABER?.  = CAhFR/WAVEL 

12U.  REAOC5.288) C JU(L) tL=l .32)  '9R** 

125.  226  FORMAT  C lOr 6.5) 

126.  REA0C5.226) (NACL) .Lsl,22)  19n** 

12 7.  Xl=OAVtL-350  .)/50  .+  l. 

128.  L1=X1 

129.  X2SX1-LI 

130.  NC*NA(l  l)+X2*(NA(Ll  + n-NA(Ll)) 

131.  Xls(N8-l . )*NC/CNB*(NC-1.) ) 

132.  FL=FLO*Xi 

■ S3.  X2=Z0/FL0 

n;a.  XO  = NC*Zu*Xl/CNC*X2-X1)-Fl.O 

135,  X3=l .-PC*(NC*ZO-FC) /(NC*Z0*FC) 

136.  no  230  L=  i « L I 

137  . IFCL.GT.LIDGO  TO  230 

138.  Xlo(L-l J/X3+1 .000001 

139,  Ll=Xi 

1 ao  t X2-X1-L1 

;ai.  IF (Ll  + l *GT  «LI)FY(L)  = 0. 

142,  IFCL1H  .PT.LT)l.II*L 

1 a 3 , IFdHl  .RT.LDGU  TO  230 

Wia,  FY(L5«(f X(L1)+X£*(FX(L1+1)-FXCL1)))/(X3*X3) 

i as . 230  CONTINUE 

i t ti « DO  231  LSI. HI 

-47.  231  FX  :i.)*FY  CL) 

i/4«.  v^-atanipupiL;  ■ 'LCi-pp  + xoi  3 

1 4 v . Xbsl ,-CCSCXS) 

X7=S'1NCXF)*6IN(X5) 

1 5 1 , F F - r L 0 ■*  P F 

152.  DO  £0  l. * i » L 1 1 

153.  xas  U -1 > *RTNT 

15a,  Xlsfc.2FFt:*NC*(“tF“X6*XO  + SQRT(FF*FF-X7*XO*XO;,)*X4*xa/CWA\/FL*l«F”7*' 

155,  1PUPIL* PUPIL) 

15b,  V .■?  s C A 8 E K 2 * V <*  * X a * X a # X 4 

157.  XF1CI 'sSORf (FX(L))*C05(X1+X2) 

158.  2 3 4 F 2 C S&3RT CFX (L) ) *STNC XI +X2) 

159.  WPITL,6*235)RINr,20fFL0,CAPER,CABER2*PP.PC'1Nn,NC.WAVFL.Fr 

160.  235  FORhAT(i,J0.5HRIfvT=.E8.3,^X.3HZO*.EF.3.3X.aHFLOc.F6.3*3X,6HCABER=. 

16  1.  r 8.3»3X.‘H:i:aPFR2=,F7.0/lX.XHPP=.F6.3.3X,3HPC*,F‘6.3»3X,3HNprstF7.3» 

162»  23X»3MNC=fF7.3t3X.6HWAvFL*  • 1 . 3HF Cs , F6 , 3) 

163.  DO  260  Jsl.N 

■■6a,  Xls6.2.132*R(  J) /(WAVEl  fl  ,p-7^FF1 

1*5.  X2=0. 

166.  X 3=  0 . 

1 b 7 • DO  255  L = 1 ^ i T I 

10  3,  X 4 = X 1 * ( L ™ 1 ) * R I N I 

169.  lKCL.EQ.nxa  = Xl*.25*RINT 

170.  lFCXa.GT.3.)GU  TO  250 

171.  X5=xa/  . 1+  1 . 0 0000  1 


I 
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IMAGE (RETINAL) 


172. 

173. 

174. 

175. 

176. 

177. 
176. 
179. 
160. 
161  . 
1B2. 
163. 
184. 

165. 

186. 

187. 

188. 
169. 
190. 
191  . 

192. 

193. 

194. 

195. 

196. 

197. 

198. 

199. 
200  . 
201 . 
202. 

203. 

204. 

205. 
2 06. 
207 
206 

209 

210 
21  1 
212 

213 

214 

215 

216 
217 


Ll  = X5 
X 5 5X5-11 

x/=jo(Lii+ys#(jo(Li  + n-jo(Ln  j 
GO  ro  251 

250  X6S3./X4 

X8s.79788  456-.0  0000077*X6-.0  0552740*X6*X6-.  00009s;i?*X6i*‘X6*y6  + 
1.00137?37*X6*X6*X6*X6-.00Q72S05*X6*Xfc*y6*X6*X6+.000l447&*X6*y6*XA* 

2X6*X6*X6 

X9=X4«,765398l6-.G416fc397’!'X6-.00003954*X6*Xfe4..00?6?573*X6*y6*X6- 
l.Q0054l25*X6*x6*X6*X6-.000?9333*X6*X6*Xfe*X6*y6+,OOOl3596*X6*X6*XA¥ 
2X6*X6*Xfe 

X7sX8*r0MX9)/5G9T(X4) 

251  IFCL.GT.DGC'  TO  25? 

X2  = X2  + X7* .25*  t 3»*XF1 f 15  + XF l £2) )*.25*PIMT*.5*RIWT 
X3BX3+X7*  ,a5*[3.*XF2Cl)+XF?£2)  )*.25*R1N!T*.5*RINT 
GO  TO  255 

252  X2sX2tX7*XFl(Ll*(L-n*9INT*WlK'T 
X3sX3  + X7*XF2Cl)ML-n+«IMT*RTNT 

255  CONTINUE 
260  HKC J)=X2*X2+X3*X3 
XlanRcn 
DO  270  J=1.N 

270  Hnl(J)  = H.UJ5/Xl 
Xl=.0002 

X2  = 3. 14l6*yi*xl/4. 

J=2 

X 4 s HR ( 1 1 * X ? 

L 1 = 2 

271  IF (xl  .LT . h ( J ) + . 000000  1 ) GO  TO  272 
JsJ+1 
Gu  TO  27? 

2 72  X5s(Xl-fi(J-l})/CR(J)-R(J-n) 

X6  = HR£ J-1)  + X5*(HK  < JJ-HRC J-IJ) 

X 7 s 6 . *( L 1 - 1) * X 2 
X4BXU+Vto*X7 
LlsLl+1 
XlsXl+,0002 
I F t X 1 , L E . » 1 ) G O TO  271 
QP5.P39  06*XX*prix*ll.-RC01/X4 
WRITE (6.275) (hR(J) .Jsl.N1 
278  FUWMAT  ( 1H0.3HHRS/U  X . 10E«„3n 
PtTURN 

276  DO  2«0  J 5 1 » N 
280  HR(J)=PR(J) 

RETURN 
• ^ 


1 

I 
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SUBROUTINE  HTXDEP (RETINAL) 


1.  SUHHOUTINt  HTXOtP 

2.  ***■  H T X 0 E P COMPUTtS  PaTc  OF  HE.AT  UFFOSTTOn  at  Various  points  I.J 

3.  C.uMmCUn  AC<2Pf3)»AP»AAV«ACw*APF,ASr.  ♦ATS,AVL.»(11.3^*PB«BV(U*31» 

4.  lCUNx(fc)  ,CuNf?9)  »r.uT  tOl^PR.  OW  (6)  ♦UPULSF  •r>W.DT,nTY  ,nz,FU  »UR  U 1 ) • 

5.  21  1 1 ) , I(5lOuOC6)  ♦ 1FIL,  IG.  IGx»  IHT.  IP  A.  lPC*I°t«  I PROF.  I^S.IPT* 

6.  3lPV»IVCi9; ♦JVl»LIH*LP4»LPC.LPE*LPS*LPV.LPX*LTviAx.K.Km*KT.M.M1  ,M2* 

7.  4 M 5 1 M * N 1 ,Ni.N£i,iv:wl.  ,PuV»Pk(in  • P T 1 ME  . QP  , p ( 1 n » « C r’ » P I M , P N ♦ R ° E . R PT  ♦ 

tt.  i«VLtPSC«S(29tll)  .SHtt*TAViTfH«7nM«TPfc.TVL->TS(P2noi  »Tsr,TTR|V(?9»  li) 

9.  o»  VC129  - :i  »*0)  » V&Hi;?<n  ,VSHX  (6)  »WAVfcL,XC«XFLOi*f  xFLflwICM  . XFL0I*0(6)  , 
to.  7xpoioio  .x  r (60)  ,z(ap)  .zr»cA)  .z« 

1 1 . DIMENSION  At;(a9,3)fAPfi(2Qf7),APSr7).II(aP)fI7(?«5*(fP&F(A),RFFLCP)f 

12.  lzutap) 

13.  IKlHT.cCj.ftJPtTuPN 

14.  It*  CUP. I I .1  ,t-25JGU  in  340 

15.  IF(IHl.t(3.nptTuPN 

lb.  17=7 

17.  LZ0=LZ-1 

IB.  I 71  = 17+1 

19.  Du  ifll  lsl.1 

?Q.  IlCDsO 

21.  17(11=0 

?2.  Zn(l)5(7(l)+Z(I+l))/?, 

23.  Du  279  List ,3 

24.  ?79  A 6 ( 1 ♦ L 1 ) = 0 . 

25.  Du  2fl0  1.1  = 1 il.Z 

26.  2o0  AoHCItl  11=0. 

27.  0J  282  lU1.Lt 

26.  KtF(l.n=0. 

29.  2d 2 KlFl(L1 ) = 0. 

30.  F>tF(2)snP( 

31.  WlF(6)=i«SC 

32.  «tK(LZl)so. 

33.  *RI1ECF*?b3)  C Z M C I J ♦ 1 s 1 * K ) 

34.  2e3  Fi)RMAT(iHo.3wZHs/nx.fcP*3)7 

35.  ***  evaluate  absorption  const  amt  s *pfi  and  ape?  fur  front  and  R£Ak  of  pe 
3b.  ***  ^cLL  as  I b INDICATING  j index  WriERF  GRANUlFS  ARE  L n C*A  T F D 

37 . IF ( ICX ,:7 . 1) Go  1 Q ?64 

3d.  Ar<tl  = ( APc-ACP*  ( 1 ,-RPF)  1 ZRpp 

39.  APF2=Arn 

40.  AH»(EXPl-ACH*hPt*TPtl»FXP(-AP&l *RPF* TPE ) ) / ( 1 . -F x p ( - A P E 1 * o P = * TpF ) ) 

41.  IiisIPfc 

42.  UU  TO  265 

43.  264  ARF1=ach 

44.  A p E 2 = ( APE-ACw*l'FE)  / ( 1 ,-RPt) 

45.  AH=  1FXPC-ACH*  C i .-KPt  )*TPF)-EXP(-APF2*(  l .-FiPE)  *TpF) ) / ( i ,-rxP  (- APE?* 

«6.  1 (l.-HPF)*TPE>  ) 

47.'  IO  = LPE-(l.nol-PPF)*(I.PF-IPF+i)  + .S 

46.  265  kkl TEC4.26R) Ap.APtl t APP2.  IG 

49. .269  FURmAT ( 1H0 . 3HAP=  *F  7.4, 3X .59APE l = »FP.?.3X«5HAPfc-?= .Ffl.?, 3X«  3WIGb. I?) 

50.  A6S(1)=aav 

51.  AcjS  C2)  = ape  1 

52.  AtiS(3)  = AP2? 

53.  AbS(4)=avl 

54.  ABS  (5)  = 4C> 

55.  AoSCfe)  = AS(, 

5b.  AbSL7)=aT5 


HTXDEP (RETINAL) 


58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 
66  • 
67. 
6fl. 

69. 

70. 

71 . 

72. 
7 i. 

74. 

75. 

76. 

77. 

78. 

79. 

ao. 

81. 

82. 

83. 

84. 


87. 

88. 

89. 

90. 
91  . 

92. 

93. 

94. 

95. 

96. 
07. 

98. 

99. 
100. 
101  . 
102 

103 

104 

105 

106 
107 
106 
109 
i 10 
111 
112 

113 

114 


00  306  1=IPA.M 

295  IFCZHtI-1) .LT.ZDCL1) ) GO  TO  296 
LlsLl+1 

GO  TO  295 

296  1F(ZH(T ) .GE.ZD(Ll) 3GO  TO  299 
**+  NO  ZD  9ETWFFN  ZHU-n  AND  ZH(I) 

AB(I.13=ABS(Ll-l)*(ZH(I)-ZH(I-m 

II £13=1 
iz(i)=li 

IF (LI .GT .LZ) GO  TO  306 
DO  297  L2  = L1»I_Z 

297  ABRCI.L2)sAB(I.n 
GO  TO  306 

299  IF(ZH(I).GF.ZD(Ll+l)3GO  TO  303 

♦ ONLY  ZD(Ll)  BETWEEN  2 H C I - 1 7 AND  ZH(I) 
AB(i.n=ABS(n-n*(ZD(Ln-zH(i-n) 

Aba»2)  = ABS(Ll)*(ZH(I)-ZDCLl)3 
AUHCI.L13sab(I*1) 

11(13=2 
:zc 13=11 
L 3 = L 1 + 1 

IFCU3.GT.LZ3GO  TO  306 
DO  300  L2=L3»LZ 

300  ABRtl.l 23=ABfI.13+AB(1.23 
GO  70  306 

7.DCL1)  and  ZD(I  1+13  RfcTwFtN  7HCI-1)  AND  Zh(I3 

303  AB(I»1 J»ABR(Ll-l)*CZD(Ll)-7Hf 1-13) 
Ab(I«27siABmn*CZDCll+n-ZD(Ll)3 
AB(Ii3)sABSCLl+n»(ZH(I)-ZD(Ll+l)) 
AbR(I»Ll)«AH(I.13 
AoR(Ifll+13aAtJ(l»l3  + AB(I«?) 

11(13=3 

I Z C I ) = 1 1 
13*1.1  + 2 

IF(L3.PT.LZ3GO  10  306 
DO  304  L2  = l.3»LZ 

304  AaR (I»L23=AB( I.1)+aBCI*23+ab(I»3) 

306  CONTINUE 

DO  314  is  IP A. M 

IF  t A«C  I* 1) .GT.10. ) ABC  I. n =1 o. 
IF(ABCT*?3.GT.lO.)A8(I»2)alO. 

IF  C ABC  1*3) .GT .10.3  Ad (I. 33  = 10. 

Du  314  L»2.lZ 

IF'ABRCIoL) .GT.10.1 ABR(I,L3=10. 

J14  CONTINUE 

DEPOSITION  BY  INCOMING  BFAM 
X2  = 0F 
L 1 = 2 

DO  317  I=IPA.M 

L2=licn 

X3=X2 

X2eX2*FXP(-AH(If  1 ) ) 

X 4=  0 . 

IF  (1.2,50.1)  GO  to  315 
l.3=IZ(T) 

X4  = x2-f»E  F Cl.  3) 

X2sX2*Cl.-RfcFa33  ) ♦fcXP  (- AB  < 1 . 23  3 
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1115.  IE  (L2.EiJ.fi!)  GO  TO  315 

116.  X4sX4+X?*REE CL3+1) 

117.  Xi  = X2»(l.-PEFCL.5+i))*EXP(-AB{If3)5 

118.  315  iF(X2.LT.l.t-10)X2=0. 

1119.  00  317  JaltJVL 

120.  S(Ii J)s(X3-X2-Xa)*HRf Ji/(ZH(T)-ZH(T-lJ3 

121.  IF  C S ( I * J)  .LT.l.E-'  O/OPULSE ) S (I ♦ J3 =0 . 

r 122.  317  CONTINUE 

* 123.  *¥*  CALCULATION  OF  REFLECTED  INTFNSITIFS  BY  VARIOUS  INTERFACES  STARTING 
12a.  ***  wlTH  F IRS  1 INTERNAL  INTERFACE 
..  125.  X2  = QP 

. 126.  DO  3?2  L 1 = 1 » L Z 0 

127.  X3  = AB$(Ln*(ZD(Ll  + n-ZDan  ) 

128.  IF  CX3.GT . 10.3X3=10. 

: 129.  X2sX2*EXP(-X3) 

130.  REFL(Ll  + i)sX2*REF(H*n 

131.  322  X2cX2*(l.-*EF (Ll+133 

132.  DO  327  L 1 s?  » L Z 

133.  I=IPA 

* 13a,  32a  IF(ZHCI)  .GT.ZDCL133GO  Trj  325 

135.  1=1+1 

136.  IF(I.LF.M)GO  TO  324 

•'  137.  GO  TO  327 

138.  325  X2SREFLCI  l) 

” 139.  00  326  L3= I R A t I 

lao.  X 3e  X 2 

lai.  Lasi+IRA-L3 

142.  X2sX2*EXP(-ABRCL4»ul)) 

! 1*43.  DO  32b  Jsl.JVL 

“■  laa.  8(L4* JlB8iL4«J)+fX3-X2)*HP(Jl/(ZH(L4)-ZH(L4-n 1 
145.  IP(S(L.4»J).LT,1.E-10/OPULSF)S(L4»J3bO, 

146.  326  CONTINUE 
■-  1«7.  327  CONTINUE 
148.  IHT=1 

149.  RETURN 

150.  ***  NO  HEAT  DEPOSITION. BEAM  OFF 
151 , 340  OU  342  Isl .M3 

152.  DO  342  J-1.N3 

153.  342  8£IfJ)«0. 

154.  IHTsO 

155.  RETURN 

7'  156.  END 


1 

I 
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SUBROUTINE  MXG RAN (RETINAL) 


1 . SuHKOuT I N £ m V b P a M 

2,  ***  This  ROUTINE  COMPUTES  CONSFQU£NCF  OF  GRANULAR  ABSORPTION  OM  T£MPFR  A fl  IRF 

3,  *¥*  VARIATIONS  IN  PfcCUSfcD  ONLY  ONCF) 

4.  COMMON  A(29,3)  . aP,  AAV.  AQH,  APE,  ASC,  ATS,  AVL,BC  1 1 » 35  *«B*B''(  U *35  , 

5.  1CUNX(6)  *00^(295  tCUT, DIM, OFLON(-S)  *OPULSE, OR. OT,OTV*nZfFI  , HR  ( 1 1)  • 

6,  2lAB(29,ll),  lBLOOD(A)  . .tFlLtIG*IGX«IHT»IPA.IPC*lPE*IPR!TF*IPS*lPT* 

7.  3IPV»IV(<59) * JVL»LTM*LPA*LPC*LPE*LPS»LPV.LPX«LTMAx.K.KMfKT.M,M1 ,M2, 

6 . <»MJ  «N»  Nl  * N J,  Nfl  ,NVL  *PUX,PRril),PTlMt.UP«P(ii5»ocf‘.RIM*pN*RPE.RPT* 

9.  bRVLtR3C»SC?9*  P ) *SHS.7 Av ,TCH.TnM.TPfct7VL.TS(?2noi ,Tsr*TTS, V(?9. 11 ) 

10,  0,  VC  (29, 11 » <>0)  , VSH(295  , VSHX(6)  ,WAVtL*XC  t XFLO*  *XFLnwT  (ft)  , XFL0U.0  £ A)  . 

H.  7XPD(605»Xl(6n)«ZC29J,2B(-S),ZM 

12.  L^sl 

13.  IF  (DPuLSF  .GT  . 1 .OE-5JG0  TO  494 

14.  U As , 000025 

13.  8T=.3E-b 

1 0 , WhITE(h,uuS)01M,n*AX,0X.BT  --- 

17,  40  5 FORMAT t lW0»4HulMs»F/.2*2V,feHLTNAXs, 1 4 , 2X . 3HDX= * E* , 3 , 2X . 3MBT  = * E*  . 3 ) 

16.  LPTsDPiJLSE/ .3E-B 

19.  L7=LTmax-10 

20.  DO  410  L=1*L7»10 

21.  Li=L+l 

22.  L2=L+9 

23.  MsTSCU 

24.  X2=TS(L+10)-X1 

2b.  X3=U. 

2fa.  OU  410  L3sLi,L2 
27.  X 3 * X 3 + . 1 
2a.  a l 0 TS  (L3)sXl  + X3*x2 
*29.  L 1 Ts  2 

30.  XPD ( 1 J s 1 . 0 

31.  IF(LPT.GE.L7MaX)G0  TO  47? 

32.  ***  CASE  FOR  LP  I LESS  TrIAN  L TM A X - 
33.440  IK(XT(LTT).GF...3F-»)G0  TO  442 

34.  XPD(LTT)sT8(1) 

35.  LITsLTT+1 

36.  gu  rn  aao 
37. 442  TIMtXsXTCLTTl 
36.  XX= riMEX/UTt. 000001 

39.  LXSXX 

40.  PT=LX 

41.  IECLX.GT.LP i iPTsLPT 

42.  Pu=0. 

43.  IK(LX.Gr.LT(iAX)POsLX-LTMAX 

44.  Ih'CLX.GT  .LP1  5 GO  TU  443 

45.  L i = 1 

4 o . L2  = LX 

47,  GU  TO  446 

U«.M3  IKCLX.G1  .LTMAX5GO  TU  444 

49.  L1=LX+1-LPT 

50.  l<;  = lx 

51.  GU  TO  446 

52.444  1FCLX.LT. LTMAX+LPT5GO  TO  445 

53.  Lb=LTT 

54.  GO  TO  444 

55.  445  L1  = LX-LPT  + 1 

56.  L2=LTHAX 
57.446  Xc=PO 
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58.  DO  440  L3=L1*L2 

59.  446  X2=X2+TSCL3) 

60.  XPD ( L T T ) SX2/PT 

61.  LT7=LTTtl 

62.  IFCLTT.LE.KTlGO  TO  442 

63.  GO  TO  496 

64.  ***  CASE  FOR  L T M 4 X LESS  THAN  LPT------ 

65.  472  TIMEX=X T (LTT) 

66.  XXST1MI-X/BT+.  0 00001 

67.  LXsXX 

66.  PT=LX 

69.  IF(LX.Gf.LPT>PT=LPT 

70.  PU=Q. 

71 . IFCLX.RT .LTMAXJHOsLX-LTMAX 

72.  IF C LX  .GT.LPT5 GG  TO  473 

73.  L 1 = 1 

74.  L2«LX 

75.  IF(LX.GT  .LTHAX5  L2=LTMAX 

7a.  GO  TO  475 

77.  473  IF (LX . IT . IT M A x+ LPT ) GO  TO  474 

78.  L5=LTT 

79.  GO  TO  494 

60.  474  L1=LX-LPT+1 

01.  L2SLTMAX 

62.  475  X2sPO 

63.  DO  476  L 3 = L 1 • L2 

84.  476  X2=X2+TSCL35 

05.  XPO(LTT)=X2/PT  . 

*86.  LTT  = L'!T+1 

07.  IFCLtT.LE.KT1GO  TO  472 

06.  GO  TO  49fc 

89.  ***  END  CALCULATION  IF  TEMPERATURES  VERY  UNIFORM 

90.  494  IF  CL5.GT.KT) GO  TO  496 

91.  DO  495  Ll=L5tKT 

92.  495  XPO  C L 1) s 1 , 

93.  496  WRITE (6*497) (XPOCLl ) ♦ L 1 = 1 *KT) 

94  . 497  FORMAT C 1H0 . 4HXP0=/ (1 X . 1OF0 .25  ) 

95.  RETURN 

96.  END 
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SUBROUTINE  BLOOD (RETINAL) 

1.  SUBROUTINE  bLOPu 

2.  SUBROUTINE  COMPUTES  CHANGE*  OF  MATRIX  ELFMF'N  ff.  A AND  B DDE  TO  BLOQO 

3.  COMMON  A(R<T«3)tAP,AAVtACHfAPFtASC«ATSf/H-'l,R(il*3T,BB.BV(ll*3T, 

<.  1CUNX  (61  , CON  (59)  * CUT  f HIM,  nF!  OW  ( 6 3 » DPULSF  *OR  * UT  * DT  V » DZ  • FL  d HR  ( 1 1 ) . 

2IARC29. 1 1)  . IPLOUDC63  . IFlLt  TG»  IGX.  IMT.  IPA.  IPf,.  IP£»  iPROP,  IPS,  IPTv 
S.  3IPV,IV(«!9)  , jVL,LIM,uPA,LPC»LPe,LPS,LPV»LPX*LTKAx.KvK^,KT,M,Mt  ,M2, 

7,  4M3fNfNlfN3,N4fNVL.PUX«PR(ll)*PTlMF:.QP*R(llT,RCP,»IM,&N«8PE.RRT» 
b.  5RVL, RSCtSC29.il)  • Sh0»TAv»T'*H»TOM.TP£,TVi.,TS(?2OQ)  »TSCtTTStV(?9.11J 

9.  6,VC(29,ll,AG),VSH(?9T,VSHX(6),WAVfcL,XC«xFL0w,XP|.r.wICM  • XFLoW0 (6)  » 

I. 0,  7Xt»D(AO)»>T(bO),^(29j,ZD(»),ZM 

II,  DIMENSION  PLOl-iT  ( 1 n ,FLOWX  n n ,R0(  1 n ,RHU  n ,y  I f 1 1 ) • xnc  U1 

12, ***  initial,  evaluation  uf  parameters  and  arrays 

13,  DU  800  J = 1 , i\l  3 

14,  BV(J,n  = 0. 

, S.  BV(J,23=0. 

lb.  8V(J*3J=0, 

17,  FLOwICJjsO, 

16,  600  FL0WX(J3=Q. 

19.  HM(n=P(?)/2, 

20.  DU  803  J=2,JVL 
21.803  Rm(o 3 = (H C0)+R( J+ 1 3 3 /2. 

26.  L2s2 

23.  DU  610  Jsj.jVL 

24.  805  1KUFLO/J  (L2)  .uT.RhAJn  GO  TO  806 

25.  L2=L2+1 

2b.  GO  TO  P0* 

27.  60b  XlsOFLOh ( L 2 3 “ OF L 0 a C L 2- 1 3 

?B,  X2SKH( J3 -QFLOrt (L2-13 

29.  Xi=X2/Xl 

30.  X 1 C J 3 - xFtOkvUI  2-l)tX3*(XFI.  OWI  (L?)-XPLOwT  (L  2-13  3 

31.  810  Xu(J)s  XFLPRO(L2“n  + ;;3:''(XFL.OWO(L2)-XFLOWOa2-n  3 

32.  FLOhXCnsO. 

3 3.  00  812  J s 2 , J V L 

34.812  FLOw*  C J)  = FLCjWX  ( J-lMCxI  (.J-1  )-XP(  J-t ) )*  fP(  J)*R(.T)-R  ( j-l)  *9  M-l)  ) / 

35.  1 ( 2 . * T VL 3 

3b.  FLOwX(JVL+l)sFLGWX(JV|_T 

37. 

36.  FLOw  I (1 JsxFLOwT ( 13/lVL 

39.  DU  820  J=2.JVL 

40,614  IF CDFuOw  :t?3  .GT r R( J3 ) GO  To  616 
4|,  L2=L2+ 1 

4 2,  GU  T 0 P 1 i. 

43.  81b  X4  = 0FLOv,  (L?)-DFlOw(l2-U 

44,  X5»K(J3-'DFLUKU6-1 3 

4b.  Xb'XB/xo 

4b.  820  FLtiwI  (,13  s(  XFLuWX  (l2-1  3 vx6*  ( XF'LOW  t ( L 2 ) - VF LOW  1 f i_  ? — i J ) ) / J V L 

47.  WRI1E(6TP21  ) (FLOW;  C J)  t.J-l  ,.TVL) 

48.  821  FURMATC1H  . 4HF L0W1  = / f 1 X , 1 0FP„ 3) 3 

49.  WHITE  (6(8  (F'LUWX(j3  , J s 1 , J V L ) 

50.  822  FUR  NAT  (16  . tiHHO'A:/ Cl  X , 1 0F8 . 3)3 

51.  DU  823  J = 2 • J V L 

52.  823  RU(J)  = 1./(«(J)*(PM+1)-k(J-1333 

53. ***  CALCULATE  CHANGES  IN  MATRIX  ELEMENTS  A AND  b DUE  TO  ^LOOD  F|_Dw 

54.  BvtMIsO. 

55.  BV ( 1 ,2)=-oHB*hLOWI ( n /?, 

5o,  B v ( 1 , j 3 = o . 

5 7.  Bbs-SHB* XF  LOW/?. 


K37 


58. 

59. 

60. 
61  , 
52  . 

63. 

64. 

65. 

66. 
67. 
66. 

69. 

70. 
71  . 

72. 

73. 
7a. 

75. 

76. 

77. 

78. 

79. 


Bl.OOD  (RETINAL) 


00  625  J=2.JVL 

BV  C J»  1.)  -SHB'KPOC  J)  *FL0WX(  j) 

BV  <!  J »2)  = SH8*RDf  JH  (FLO^X  (.L-15-FL0WX  ( J+l) ) /?.-SHP*FLOWI(  J)  /?, 
825  BWC  J.31s-SHbt'WnCJ)*FLOWXf  ,I> 

00  635  X= 1PA*M 
835  1VCI)=0 

DO  04Q  L3sJ .NVL 
L.asI8L00DCL3) 

640  !V(L«)sl 

00  &as  I = 1PA  » LPC 
DO  fl«2  J=1.JVL 

842  HB(I*J)sO 

IF ( JVL.EQ.M) GO  TO  H4B 

LlsJVL+1 

00  643  - J = L 1 * N 

843  IA3(I»JJ«1 
845  CONTINUE 

00  850  r-IPT»b 
DO  650  J=1»N 
850  lA8(ItJ)Bi 
RETURN 
END 
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APPENDIX  L 


NOMENCLATURE,  SAMPLE  DATA,  CODE  LISTING,  AND 
SAMPLE  RUN  FOR  CORNEAL  MODEL 


ic  ... 
c 

l; 

if 


nomenclature  for  corneal  model 


AUa.1JLUlOi.21 
A ( I * 3) 

ABC  If  i)t 
_AjH  I * 2 )l.n 
Ab'RCIVLI) 


B(Jf 1) «BCJ«2j 
B( J. 3) 

_CONCJ[J 

CONXCL) 

CQ 

"cTcQT 

CUT 

DAMAGECLlf 

12) 


DpULSE 

dr 

dt 

OTSTM- 


-DxCW 

DXRU) 

DZ 

edT  i 


.ic  nc 

FVCL") 

« c 

..-•c 

F.C 

■»ji  c 

4*'*  C 

c 

FP<L) 

4.f  C 

A C 

"FTIMECLT 

- c 

4‘-' j C 

ic 

•j  c 

FXC(J) 
FXRCI) 
HR(  J) 

l ~ 
101*102 

lc 

C 

Is 

ll  Cl) 

COEFFICIENTS  OF  FINITE  DIFFERENCE  EQUATIONS.Z  ELEMENTS 
PRODUCTS  OF  ABSORPTION  COEFFICIENTS  AND  THICKNESSES  OF 

SUCCESSIVE  EYE  MEDIA  BETWEEN  ZHCI-l)  AND  Z H.(  I ) 

SUM  OF  AB(I»n.AB(i,2),,,  OF  MEDIA  BETWEEN  ZH(I-l) 

AND  ZD(Ll) 

ABSORPT 1 0 N C 0EFF1CIENTS  A S S 0_C_I_A T t D__W I TH  L-TH  EYE 

MEDIA  BETWEEN  ZDCL)  AND  ZD(L+lj*PER  CM 

FRACTION  OF  HEAT  ABSORBED  MEDIA  THAT  IS  ABSORBED 

BY  PARTICLES  QH  FIGMENTS  

* 

COEFFICIENTS  OF  FINITE  DIFFERENCE  EQUATIONS. R ELEMENTS 

T HER M AL_C  ONDUCTIVI  TY__fT_  0 E£TH  ZJ  I ) rC_A  L /C  M^S  £ C - C 

Thermal  conductivities  for  i-th  eye  media, cal/cm-sec-c 

RATIO  OF  PREDICTEO  TO  ACTUAL  LASER  POWER. 

INITIALLY  ESTIMATED  AND_THEN  REFINED  BY  DAMAGE  CALC. 

ARRAYS  USED  TO  EVALUATE  TEMPERATURES 
NORMALIZED  INTENSITY  OF  LASER  BEAM  AT  RsHlM 

COEFFICIENTS  FOR  RATE  0F_ THERMAL  DAMAGE. RATE-  _ 

e'XPTDAMAGTa,  IT-D'amaGE  (1  f2)/C'v'C'(  2 7 3+ TO')'')  'FOR  TEMPERA- 
TURES  BELOW  50  C.  AND  R ATE-EXP C DAM AGE ( 2 . 1) -D AM AGE ( 2 * 2 ) / 

(VC  + 273  + T0)  ) FOR  TEMPERATURES  ABOVE  50  C 

'max.  number  of  Elements  used  to  compute 'Thermal  effects  of 
particles  or  pigments 

DURATION  OF  INDIVIDUAL  PULSES. SEC.  ALWAYS  HELD  FIXED 
R 'INCREMENT  ""IN  UNIFORM- PART  OF"  GRID.  "CM 
FIRST  TIME  INTERVAL  FOR  SINGLE-PULSE  TEMPERATURE  CALC 
SUCCESSIVE  INTERVALS  INCREASED  BY  FACTOR  XC.SEC  _ 

'TEMPERATURE  INCREMENT  “TO  'BE  ADDED  "TO  TSTE  AM*  CONSIDERING 
PEAK  PARTICLE  TEMPERATURE  AS  HYPOTHETICAL  DAMAGE 
CRITERION 

ARRAYS  "USED  TO  EVALUATE  "TEMPERATURES  RTSES  “ 

_Z_INCRBMENT  IN  UNIFORM_PART  0E_  GR_ID»  CM 

POWER  TO  WHICH  "TIME  "IS  RAISED"  TO  SPEC  IFY"”NUMfc>ER  OF  CYCLES' 
TO  WHICH  BASIC  TEMPEHATUHE  CALCULATIONS  ARE  REPEATED 
TO  ENSURE  STABILITY 

ADDITIVE  FACTOR  TO  SPECIFY  NUMBER  OF"  CYCLES"  TH  WHICH 
SINGLE-PULSE  TEMPERATURE  CALC.  ARE  REPEATED  TO  ENSURE 
_5TABjlLITY_  

AREA  FROM  "Rsc  TO  Ra  ( L«~.  S)  *R  TnT  » CM2— YcR  CALC.  IRREGULAR 
PROFILES 

FOCAL  LENGTH  OF  CORNEA, =3. 12  CM  FOR  HUMAnS, =2. U3  CM 
FOR  MONKEYS  

TOTAL  LASER  POWER  BETWEEN  RsO  AND  Rs  ( L- . 5)  *R  I NT  — 

FOR  CALC.  IRREGULAR  PROFILES 

FACTORS  BY  WHICH  EXPOSURE"  TIME  IS  MULTIPLlfcO  TO  YIELD 
SUFFICIENT  TIME  FOR  DAMAGE  TO  OCCUR.GIVEN  AS  FUNCTION 
OF  PULSE  WIDTH 

ARRAYS  USED  TO  EVALUATE"  TEMPERATURES 

NORMALIZED  IRR_ADIANCE  ENTERING  EYE  AT _R(  J)  , C_AL/CM2-SEC 
" INDEX  UF  AXIAL  GRID  POINTS  ZU)  " 

I INDICES  for  PRINTING  AT  DEPTHS  Z(I)  WHERE  I = IP1*I"D1  T n 
IP1  + ID2 

I INDEX  INDICATING  LOCATION  OF  PARTICLES 

NUMBER  OF  INTERFACES(ZO)  BETWEEN  ZH(I-n  AND  ZHCn, 

PLUS  l 

LI 


IL.&NS 


- C 

1MAX 

1 c 

IN 

I C 

INX 

' C 

1 C 

Inxx 

I C 

f c 

IP 

n|  C 

IPNOF 

! c 

- c 

XPt»IP2*. 

: 1,1  C 

; c.  . 

1 v c 

I type 

wl  c 

IX  CL) 

wl  c 

C 

izcn 

v-r  C 

J 

i .M  C 

JDl  tJ02 

! C 

Jm 

’ c 

i ■■■‘I  c 

JVL 

- 1 C 

K 

C 

km 

■<\  C 

kt 

.'ill  c 

KtT(L')  ' 

c* 

KTYPE 

! -j  c 

KJYPEU 

1 C 

1 "[  c 

KX 

I 1 r 

! ■ ■ c 

lesion 

i -i  c 

U 

•[  c 

Lim 

j iH  1 c 

LIMAX 

• c 

1 -1. . c 

LLT » LLG 

* 1 1 j c 

LP  1 1 LP2 , 

” c 

■ c 

Ls  " 

j .»■!  j Q 

lt 

.*'•  c 

LTMAX 

1 ■■  c 

' iTr  C 

LXCL) 

C 

i ,:*■  c 

LZ 

I-  c 

Ll»L2»L3 

-I  C 

M 

,-ri  C 

Mi 

1 C 

MJ 

•M  C 

M3 

J c 

N 

1 C 

N8 

. ■ 1 C 

NC 

I INDEX  OF  V(lX3fJ)  TEMPERATURE  CURVfcCj  VARYING)  TO  MARK  | 

UN  3*D  PLOTS  I 

NUMBER  OF  TIMES  TEMPERATURE  CALCj  ARE  WEPEAJED_  FOR.  _ . . . . | 

PURPOSES  OF  STABILITY'  I 

index  indicating  whether  to  consider  corneal  burns  or  I 

_LENS  BURNSlFOR  CORNEA  SFT  1LENS=0,FQR  LEnS  SET JLENS=1  _ I 

I INDEX  AT  WHICH  'PEAK"  TEMPERATURES  OCCUR  { 

NUMBER  OF  PULSES  GROUPED  TOGETHER  FOR  DAMAGE  CALCULATIONS  » 

NUMBER  OF  GROUPS  OF  PULSES  CONSIDERED  DURING  EXPOSURE  _ « 

TO  LASER  ' ~ ” | 

NUMBER  OF  GROUPS  OF  PULSES  CONSIDERED  DURING  AND  J 

FOLLOWING  EXPOSURE  T 0 _L A S E R _ _ I 

~ 1 INDEX  OF  FIRST'ZC'n  IN  CORNEA  UR  LENS  8 

INDEX  DESCRIBING  LASER  PROFILE! UNIFORM  I F a 0 , G AU SB  I A N IF  = i ■ 

tIRREGULAR  IF  = 2 _ _ _ ! 

1 INDICES  ASSOCIATED  WITH  INITIAL  GRID  POINTS  ALONG  Z . 

AXIS  IN  SUCCESSIVE  EYE  MEDIA  STARTING  WITH  I=IPl  IN  j 

CORNEA*  OUTER BOUNDARY  OF  CORNEA  AT  ( Z U P IV.  )J  2 ! 

K INTERVAL  AT  WHICh  VCCItJ,*)  IS  PRINTED  j 

I INDICES  ASSOCIATED  WITH  INITIAL  GRID  POINT  <Z)  IN  L- T H f 

_EYE  MEDI.A  _ _ _ _ ' 

1NDEX\'  OF  FIRST  INTERFACE  ZDCL)  BEYOND  ZH(M) 

INDEX  FOR  RADIAL  GRID  POINTS  R(J) 

__J  INDICES_f OR  PRINTING*  WILL  PRINT  J = JD1  TO_JD<?_  _ _ ' 

MAXTmum'  J INDEX’  at  WHICH  DAMAGE’  ASSESSMENTS  ARE  TO  BE  MAQF.  j 
» DEPENDS  ON  VALUE  CHOSEN  FOR  RMAX  i 

J INDEX  FOR  WHICH  R(JVL)  APPROXIMATES  RVc. 

Index  ~f or  times  "xt'CK) 

INTEGER  SUCH  THAT  XT ( KM) =DPULSE 
MAXIMUM  NUMBER  OF  EXPANDING  TIMES  XT{K) 

" NUMBER  OF  TIME' STEPS  'with'  wHICh'TO’REACH'TOTAL  TIME  1 

NUMBER  OF  TIMES  AT  WHICH  3D  TEMPERATURE  DRAWINGS  ARE  DESIRED  j 
(-OR  NO  DR  An  I NGSSET  KTYPE  = 0_  _ I 

CONTROL’  INDEX" WHICH  WHEN  SET  =1  w ILL  PREEMPT  CARD  1 

PUNCHING  WHILE  MAINTAINING  PRINT  OUTS  OF  TEMPERATURES  | 

AT  SELECTED  TIMES  AND  PO I NTS---SET  =0  FOR  CARD  PUNCHING.  ’ 

tot  a l number  "of  time  intervals  from  pulse  to  pulse""’ l 

LESION  RADIUS* CM 

NUMBER  OF  RADIAL  INTERVALS  USED  TO  INTfcGRATE_PHOF ILF 
NUMBER  OF  RADI  AL  INTERVALS  FROM  RsO  TO  RsR  1 M 0R""LE'S  ION " 

I INDEX  DESCRIBING  RANGE  OF  I OVER  WHICH  TO  A S 5 F. S S DAMAGE, 
RANGE=IMAX  TO  imax+limax 

INDICES  USED  TO  CONTROL  CALC,  OF  THRESHOLD  PUWER 
I INDICES  ASSOCIATED  WITH  LAST  GRID  POInTS(Z)  IN 
SUCCESSIVE  EYE  MEDIaCSEE  IPitIP2#.,) 

NUMBER  OF  POINTS  ’DESCRIBING  IRREGULAR  LASER' PROFILE 

INQEX  OF  NUMBER  OF  TIME  INTERVALS  RT 
TIME  INDEX(TIMtsLTMAX*BT)  BEYOND  WHICH  EXCESS 
TEMPERATURE  RISE' OF  PARTICLES  IS  DISSIPATED 
I INDICES  ASSOCIATED  WITH  LAST  GRID  POINT  C Z ) IN  L-TH 
EYE  MEDIA 

"NUMBER  OF  DIFFERENT  EYE  LAYERS  Oh  MEDIA 
dummy  VARIABLES  USED  IN  COMPUTATIONS 
NO.  OF  GRID  SPACES  IN  Z DIRECT  ION (EVEN) 

'HALF  DF  NUMBER  OF  UNIFORMLY  THICh  L INCREMENTS CLtSS  THAN  M/?) 
HALF  the  NO.  OF  GRID  SPACES  IN  Z DIRECTION 
NO,  OF  GRID  POINTS  IN  Z DIRECTION  I*M) 

NO.  OF  GRID  SPACES  IN  R DIRECTION 
REFRACTIVE  IND.'X  AT  WAVELENGTH  OF  BOO  NM 
REFRACTIVE  INQEX  AT  WAVELENGTH  WAVEL 


L2 


»•  c 

NR 

I c 

* C ._ 

NPt  ..  

J c 

NpTCL) 

1 c 

NpULSE(L3 

f C 

. NJEST 

4 1 c 

1 c 

Nt 

j c 

NJ.„ 

M C 

Na 

i c 

PC 

] c 

PQW*POX 

“I  c 

PRCJ) 

1 c 

c 

ptime 

i j i c 

' ' c 

pupil 

> c 

PXCLT 

wj  C 

QD  c X * JT 

'9 1 C 

■ c 

Qp 

■’’i  c 

R(J) 

REFtU 

REPtTCL) 

'RQV 
Rh  c J J 

RIM 


rint 
Rh  a x 


.iai 


C 

Rn 

•’!  c 

«1 

■*I  c 

H2 

c 

RxCL) 

,v  c 

» c 

S(I* J) 

c 

c 

u|  C 

SIGMA 

-1  c 

TC 

c 

ThCL) 

~ c 

time 

w.  C 

TlMEX(L) 

c 

^ c 

T8TEAM 

■■.j  c 

f c 

TO 

V(I*J) 

L c 

VCU»J*K3 

■■i  cc  - 

1 c 

VE(L»K*U) 

I c 

VpX 

■3  C 

VSM(I) 

J c 

VSHXCL) 

1 c 

VZ(L*Lb*L3» 

* c 

i 

U) 

NUMBER  OF  TIME  INTERVALS  WITHIN  DPULSE*USED  FOR  DAMAGE 
CALCULATIONS 

total  number  OF  PULSES  IN  EXPOSUHF  . 

NUMBER  OF  INCREMENTAL  TIMES  USED  TO  SUBDIVIDE  DPULSE 

number  of  pulses  associated  with  l-th  test  exposure 

NUilBtR  OF  TEST  EXPOSURES  F-HICji.  CAN  DIFFER  I N L_W.EP_E.TI_T  l On 

HATES  "OR  NUMBER  OF  PULSES 

NUMBER  OF  UNIFORMLY  THICK  P I NCRtK&NT S ( LE SS  THAN  N) 

NO,  OF  GRID_P01NTS_IN_R_  DIRECTION  (N+i)  _ 

NO.  OF  GRID  POINTS  IN  UNIFORM  PART  OF'  GRID  IN  R DIRECTION 
DISTANCE  OF  PUPIL  FROM  CQRNEA*=.4ft  CM  FOR  HUMANS* 

= ,36  CM  FOR  MONKEYS  . . 

LASER  PCwER  ' ON  CORnEaL  PL  A IMF  *WATTS 

CALCULATED  OR  MEASURED  RETINAL  IRRADIANCE  PROFILE 

NORMALIZED  TO_  UNITY  AT^  R(li_=0_.__  ..  . 

UNIFORM  TIME”  INTERVAL  USED  TO  SUBDIVIDE  DPULSE  FOR  MULTIPLE 

PULSES 

PUPIL  K A D I U S * C M_  . 

"IRREGULAR  LASER  PROFILE  AT  POINTS  RXCL) 

LASER  POWER  REQUIRED  TO  CAUSE  IRREVERSIBLE  DAMAGE  AT 

L ( I)  * H C J ) * w A T T S_  _ . 

LASER  INTENSITY  ENTERING  EYE  AT  R ( U =0  * C AL /C M2-SEC 
RADIUS  AT  CO-aHOINATE  J*  CM 

FRACTION  OF  RADIATION  REFLECTED  AT  ZsZD(L)  __ .... 

""REFLECTED  R ADI  AT  IONFROM  INTERFACE’  AT  / = 2 D C L 3 
REPETITION  RATtS  ASSOCIATED  WITH  L-TH  TEST  EXPOSURE  * PULSES/ 

SEC  ..  

“RANGE"  OF  TEMPERATURE  RlSE(C)  FOR  3-D  AND  2-0  PLOTS 
RADIAL  DISTANCE  HALFWAY  BETWEEN  KCJT  AND  R(J+1T 
IMAGE  OR  BEAM  RADIUS*  FOR  GAUSSIAN  PROFILES  EQUALS  _ 

RADIUS  AT  wHICH  NORMALIZED  PROF  ILE  EQUALS  CUT*  FUR 
UNIFORM  PROFILES  tUUALS  EXTENT  OF  PR0F1LE*CM 
UNIFURM  RADIAL  InTERVALS*CM 

MAXIMUM  RADIAL'DISTANCE  AT  WHICH  DAMaGL  ASSESSMENTS  ARE 
TO  BE  MADE 

MAXIMUM  RADIAL  DISTANCE, CM  _____ 

■ stretching’ factor  In' z 'direction 
stretching  factor  in  r direction 

radial  distances  ASSOCIATED  WITH  IRREGULAR  laser  prof tle 
' HXILHSYMMETRIC  in  R)  *cm 

KATE  OF  HEAT  DEPOSITION  PER  UNIT  VOLUME  AT  ZCI).H(J)* 
CAL/CM3-SEC 

‘"RADIUS  at  which  NOKMLIZED  GAUSSIAN  PROFILE-  FOUALS 

1/E2 

TIME  FROM  START  OF  PULSE  TO  START  OF  NEXT  PULSE_*SEC_ 
THICKNESS  OF  EYE  MEDIA  1*0 1C A TED  BY" L * C M 

maximum  time  limit  set*  sec 

TIMES  AT  WHICH  3-0  PLOTS  ARE  DESIRED* SEC 

granule  TEMPtRATuRt  used  as  hypothetical  damage 
CRITERION*C 

INITIAL  TEMPERATURE  OF  E Y E * C 

TEMPERATURE’  RISES  AT  Zd)fR(J)  AT  GIVEN  TIme*C 
TEMPERATURE  RISES  AT  Z C 1 3 * « C J ) AT  TIME  XTCK>*C 
TEMPERATURE  RISES  AT  l ( I D ( L) 3 v R ( JD ( L I ) AT  TIME  XTCK)»Lt=I 
FOR” EYE 'MEDIA  * AND  Ll=2  FOR  PARTICLES  OR  PlGMtNTS 
TEMPERATURE  KISES»C 

VOLUMETRIC  SPECIFIC  HEAT  AT  Z ( IT  * CAL/CM3-C 

HEAT  CAPACITY  OF  L-TH  EYE  MED  I A . C AL /C M3-C 

TEMPERATURE  RISE  AT  TIME  INTERVAL  ZT(L3T  AFTER 

tLS- • S T * I N- , 5 INCREMENTAL  PULSES  AT  POINT  Z ( I D ( L ) ) * R ( JD ( L T ) 


L3 


\ m C *Ll  = i KOk  EYE  MEDIA  AND  Ll  = ? FUR  PARTICLES 

I 8 C W 4VEL  WAVELENGTH, nn 

( * C Xc .STRETCHING  FACTOR  FOR  T I M£  INTERVALS  ASSOCIATED  WITH 

j C TECH,  INCORP.  TEMPERATURE  CALCULATIONS  ' ' 

I ||  C XcTILI  VALUES  FROM  WHICH  EXPANSION  FACTOR  XC  IS  SELECTED  BASED 

I I!_C_ . UPON  PULSE W 1 DT H 

"I  c XPD(K)  NORMALIZED  TEMPERATURE' RISES  OF'gwANULES  AT  time  XTCkJ 

JC  X T c K 3 TIMES  FOLLOWING  START  OF  EXPOSURE* INDICATED  HY  ‘INDEX  K 

C _ . _ <t  SEC 

'I  C XX  ~ " FRACTION  OF  LASERS  ENERGY  ENTERING  EYE~  ~ 

J C X 1 * X2  * X3 , , , DUMMV  VARIABLES  USED  IN  COMPUTATIONS 

j C Z ( I ) DISTANCE  ALONG  Z AXIS  AT  GRID  POINT  I * CM 

* C Zc<JN  ( I » J ) FACTOR  B Y WH ICh  LASERS  I NT  £ NIT  I ES (NORMAL  9fc  AM ) A RE 

"j  C MULTIPLIED  TO  ACCOUNT  FOR  REFRACT  I ON, USED  FOR  LENS  Ru«nS 

1 C _ Zo ( I ) DEPTHS  OF  INTERFACES  BETWEEN  VARIOUS  EYE_M£DIA,CM 

j.  C Zh  c 1 3 AXIAL  DISTANCES  HALF  W Ay  bETwEEN  ZClV’AND  ZCI+i)»CM 

'•*1  C Zm  half  LENGTH  OF  Z AXIS*  CM 

i V C ZO  __  _DISTANCE  OF  PUPIL  FROM  LASERS  WAIST*CM 

| C ZKL3)  TIME  FHOm'"£TARV  O*7  PULSE  TO  CENTER  OF  TIME  INTERVALS 

1 ‘"'I  C USED  TO  PREDICT  THERMAL  DAMAGE  FUR  MULTIPLE  PULSES 

■«i  _C  ZTTCL3)  LOG  OF  PRODUCT  OF  NUMBER  OF  PULSES/GROUP  TIMES  TIME 

C - INTERVALS ~A T W H IC  h”D  a M AGE  CALC.  ARE  MADE  

•t  C ZTXCL3)  TIME  INTERVAL  FROM  START  OF  EACH  PULSE  AT  WHICH 

C __  PARTICLE^  T_E_^  P E_h_A  TUBES  ARE  CALC.. 

! ' c ' ~ 

c ***  dimensions  of  various  arrays  used  in  program 

■-•ic  ■ - 

C Common  dimensions  a ( m 3 ♦ 3 ) ,absclZ) *B(Ni*3) *cunx (6) »cun(M3) , hr  c n 3 ) * 

■'■T  C _ R(N3)  *REF(LZ+1 ) * TH(LZ)  «TS(Mi*N3)  ,S(LTMAX)  ♦ VC  CM3*M3*NT)  , VSHX(6)  , VSHfM?)  . 

-!  c 'XPU(RT)  VxT('K'T)7Z(M3)  *ZD(LZ+n 
c <+**  Main  program 

- c DIMENSION  CXCCN3)  ,CXRCM3)  »DAMAGc.CC. 2)  *DXC(N3)  .DXRCF''3)  »FXC(N31  *FXR(W3)  . 
j "I  C ID  ( L I J ) » JU  ( L~I  J ) ♦ KKT  ( 39  ) * NP  T ( 3b  ) * NPULSE  ( NTES  T ) * OU  ( M 3 * N3 ) ♦ REPfc  T ( NT  FS  T ) » 

! '•••'  C TlMEXCKTYHfc)*XCTCi8)«VCM3*N3),VtCLlJ.KT,2).VXX(M3tN3),VZCLIJ»INXX,Kx.2)t 

C ZTCKX) fZTT(KX) 

i v c * + * subroutine  grid ~~ 

i ; - C Ix(ft).LXCb) 

| c ***  Subroutine  image 

^ C FACLl  + n.FP(LIt-n,FXCLl+n*J0(32)*PXCLR).RXCLH),XFiCLin)*'Xf-2(Ll+n 
f .«|  c ***  Subroutine  htxdep 

T C ABCM3, 3)  ,ABH(M3»LZ)  »II(M3) » IZ(ma)  »REFL(LZ+1)  *ZH(M3) 

! .X  »* 


1 ■ 

X 

. i 


.SAMPLE  DATA  FOR  CORNEAL  MODEL 


W » « IM 

DATA  CARD  1 

. 0b5 

.100 

«•*  m w*  «•  « 

• m *•  m mt  m 

data  cards  ? 

13.7 

13.0 

12.3 

11.7 

11.1  10.5 

7.6 

7, a 

6.9 

6.5 

6.1  5.7 

3.9 

3.6 

3.3 

3.0 

2.7  2. a 

1 .S 

l .a 

1.3 

1.3 

1.2  1.2 

DATA  CARD  3 

6 

data  card  a 

.06a 

3 

0 

.0 

■ r » • i 

DATA  CARD  5 

05000 

0 

.05000 

«M*«i 

DATA  CARD  6 

1 

a, oo-i 

1.35*1 

'Data  card  7 

a.s-2 

% 

mm  wf  am  m 

■data  CARD  b 

i 

8 

m m • m 

-DATA  CARD  9 

l . + i 

•m  mm  •"  m 

■DATA  CARD  10 

1 

•DATA  CARD  11 

a 

6 

1 

5 

5 

---- 

■DATA  CARD  1? 

37. 

. 1 6 

1 . 

-DATA  CARDS  13 

1663. 

1863. 

1863. 

1863. 

1663.  1863. 

0. 

0. 

2727. 

-DATA  CARO  U 

.0006 

.0560 

.2900 

.3500 

1.1570  1.0000 

• • •»  m 

-data  card  15 

,00120 

. 0 0 1 2 0 

.00120  . 

G 0 1 2 0 

,nul20  .00120 

— 



-data  card  16 

1 . 

1 . 

1 . 

1 . 

1 * 1 • 

" ■ 

-data  card*  i 7 

1 

5 

1 

10  i a 

30 

31 

32 

33 

3a  T5 

uO 

a 1 

a2 

A3 

L)U  05 

30 

51 

5? 

R3 

ba  55 

M « « M 

-DATA  CARDS  18 

1.2 

1.2 

1 .2 

1.2 

1.2  1.2 

1.2 

1.2 

1 .2 

1 .2 

1.15  1.15 

1 .lb 

1.1b 

i .15 

1.15 

1.15  1.15 

1.1 

1 . 1 

1 . 1 

1 . 1 

1.1  1.1 

m ■■  " 

-DATA  CARDS  19 

b6 

Rb 

56 

5b 

58  56 

36 

3b 

39 

39 

a o a 0 

aa 

ab 

u6 

a / 

n 8 51 

S3 

5a 

as 

56 

57  57 

— 

-DATA  CARD  10A 

- 

Q.g 

» m m 

9.3 

8.8 

0.3 

5.3 

a. 9 

a. 5 

a. 2 

?.1 

1.9 

1 .7 

1.6 

1 .? 

1 . 1 

m m m m m m 

■ m wt 

ta  *0  m am 
tm  m m 
m m*  m mj 

.025 

ma  m m *m 
am  «w  m 

m m.  m 

.0 

.0 

.0 

.700 

am  » m w 

18 

n m m ^ 

21 

t_ 

28 

36 

77 

38 

79 

a6 

n 7 

a« 

a9 

56 

87 

1 ,? 

1.2 

1.2 

1.2 

1.15 

1.15 

i.15 

1.15 

1.15 

1.15 

1 . 1 

1.1 

1.1 

1.1 

58 

R8 

58 

R0 

a 1 

a 2 

a2 

aj 

5 0 

51 

52 

52 

58 

R 8 

ib+u 


DATA  CARD  IRA* 

L5 


data 

CARO 

IRA**- 

. u + o 

.29-1  .6-1 

dm  A 

CARD 

1 9 A * * * 

1 . + 0 

.135+0  .0+0 

--- data 

CARD 

1 °6  “ 

i . U + 2 

^.a30+0  ,36+0  1 . i 3 a + 0 

-DATA 

card 

20 

1 

.-.----DATA 

CARD 

21 

2 

DATA 

card 

22 

2.-6 

1.-7 

DATA 

card 

23 

6 

b « 1 

i 

data 

CARD 

2U 

6. 

1 1 

-DAT  A 

CARO 

2R 

1 . 

1 , 

.---------DAT  A 

CARD 

26 

ia9. 

50000.  2^2.  80000.  100. 

luO  . 

SAMPLE  RUN  OF  CORNEAL  MODEL 


m 

.39000+02 

.60UUU+01 

4 

10 

. , 16667-01 

. 19264+ul 

I 

,39000+02 

,6u0u0  + 0 1 

4 

10 

. 16667-01 

,19099+01 

- 

1 

,39000+02 

,600u0+01 

4 

10 

. 16667-01 

,19048+01 

] 

.39000+02 

.fciOOoO  + O 1 

4 

10 

■ 1666  7-0  1 

,19034+01 

T 

,3900u+02 

,6000u  + 0 1 

4 

1 0 

, 16667-01 

, 19030+01 

,39000+02 

.O0000  + 0 1 

4 

10 

,16667-01 

,19029+01 

_J 

. ,39000  + 02 

.60000+01 

4 

10 

, 16too7-01 

•19 u 29+ 01 

\ ■< 
j.-' 

, 39000  + 02 

,600UO  + O 1 

4 

10 

.16667-01 

,19029+0 1 

,39000+02 
W2®  1,9029 

,60  0 0 0 + 0 1 

4 

10 

,16667-01 

,19029+01 

1*3 

, H959+04 

.10000+02 

1 1 

2 

,36000-01 

, 11)560+0  1 

,861 15-03 

,20315+01 

^ ’) 

.... , 1 1.959+0  4 

,10000+02 

1 1 

2 

..360  0Q-01 

,10560+01 

,66115-03 

,203.77  + 0 1 

• - 

,11959+04 

,10000+02 

1 1 

2 

,36000-01 

.10560+01 

.66115-03 

,20340+01 

i 

^ 1 1959+04 

• 100O0+02 

1 1 

2 

,36000-01 

.1 0560+01 

,861  1 5 - 0 i 

,20392+ul 

"1 

.11959+04 

.10000+02 

1 I 

2 

..  36000-01 

. 1 0560+0  1 

,66115-03 

.21*342+01 

* * 

. 1 1959+04 

•1G0UU+U2 

1 1 

2 

,36000-01 

, 1 0560  + 0 1 

.66115-03 

,20393+0 1 

--  Ria  2.0343  Zna  1.0547 


iUlali 

I02«l 4 

JD1=  1 

J 02c  5 

ka 

,0000 

,0167 

.0333 

.0500 

, 0 6 6 7 

,0984 

.1587 

.2  736 

.4921 

,9U7L 

1.6992 

; 7 = 

~ -1.0534 

-.3154 

- « 2523 

-.1231 

-.0 597 

. - » 02^6 

-.0  134 

-.0059 

- a 0 (>22 

- , 0 u 0 

,0004 

,00  13 

*0022 

,003  1 

, 0049 

,0065 

.0160 

.0313 

,0623 

.125/ 

11  .2550  ,5U5  1*0560 

v 

1 PUPIL®  .350 

SIUNAs  ,640-01  RIMa  ,640-01 

1 UPa  ,145+02  HKa 

.100  + 01  .6/3+00  ,561  + 00  ,295+00  . 1 H+0O  ,661-02  ,447-05  ,129-  15  ,000  ,000 

1 H£PfcT® 
j .100+02 

I NPULSto 

: 1 


I 


[ 

ABSs  i Obi.  1863. 

1 863. 

1663. 

1863.  1 863  o 

APS 

.000 

1 

DPULSEs  .250-01  D«=  .167- 

01  DT« 

, 106-Qo 

D 2 s ,881-03  1 P 1 

= 11 

IP2=1  7 

1 

1P3=17  IPaalB  IP5=16  !P6al9  JVL»  9 KMa 

03  KTs  u 7 Ulna  3 

LP1=16 

•i 

LP2sl7  LP3=16  LPastS  LP5b19  LP6=23  ms22  Mis  2 nbIO 

N 1 s 0 

NP=«2 

I 

NTEST*  1 

PQws  ,000+00  PTIMEs  ,000  QP* 

,105+02 

1 

NEFb 

025  ,000 

,000 

.(300 

. 000  . 0 U 0 

H I MB 

,640-0  1 

i 

KVLb  *700  ThB  ,900-02 

,900- 

02  ,900 

-02  ,900-02 

,200- 

01 

I 

,100+01 

TlMfcs  ,038-01 

T0=  37 

, 0 XC= 

1,15 

I 

i 

IKXe  1 

I 

ZH* 

* • 785  + 00-  • 

380+00-.188+00-, 

9 1 0-0 1 - , 

002-01 

-•210*01-, 

960-02-.007-02-, 

134-02  . 

705>08 

i 

•881-03  . 

176-02  ,260-02  , 

398-02  » 

671-02 

i 

,123-01  , 

236-0  1 ,068-0 1 , 

900-01  , 

19(3  + 00 

■•1 

,387+00  * 

7b7  + 0 0 

Ss  ,133+05 

.116+05  ,7/1+00 

,391+00 

,151+00 

,117+03  ,590-01 

,000 

,000 

,000 

I 

So  ,257+00 

,225+00  ,109+00 

,758+03 

,293+03 

,227+02  .115-01 

. 0 0 (3 

,000 

,000 

X 

SB  ,a99+03 

,035+03  ,290+03 

, 147+03 

.567+02 

,439+01  ,223-02 

.000 

.000 

,0oo 

_ 1 

8»  ,720+02 

,632+02  ,020+02 

.213+02 

,822+01 

,637+00  ,323-03 

,0  00 

,000 

,000 

t 

8*  ,318+01 

,277+01  ,180+01 

,933+00 

.360+00 

,279-01  , 0 0 u 

,000 

,000 

, 0 0 0 

Ss  ,971-02 

,607-02  .562-02 

.280-02 

,110-02 

,851-04  .000 

.0  00 

.000 

,000 

.i 

S«  ,000 

,000  .000 

.000 

, 0 0 0 

, 0 0 0 .000 

.000 

,000 

,000 

•T* 

Sa  ,000 

,000  .000 

,000 

.000 

,000  , II  0 0 

,U00 

.000 

,000 

S»  ,000 

,000  ,000 

,000 

.000 

,000  ,000 

,000 

,000 

,000 

S«  ,000 

.000  ,ooo 

,000 

,000 

,000  ,(ioo 

,000 

.000 

,000 

S3  ,000 

,oon  ,ooo 

,000 

.000 

, 0 0 0 , (1  (3  (1 

. ()  (3  0 

, 0 0 0 

, 0 0 0 

s 

Ss  ,000 

,ooo  ,000 

.00(3 

,000 

,000  ,000 

.000 

. 0 0 0 

,0(30 

1 

j 

TIMES  ,106-04 
R = 

Ks  2 
, 00000 

P 0 w E k « 
.01667 

,4i0Q  + 0(JWAT  t s 
,03333  .05000 

,06667 

•! 

• p 

z«  ,00004 

• i 

.1 

.1  ,0 

.0 

‘1 

z*  ,00132 

,0 

0 

.0  .0 

.0 

* - 

1 

i 

• • 

ZB  ,(3  0220 

.0 

.0 

,0  ,0 

,0 

Z = ,00308 

.0 

• « 

,0  ,0 

*0 

I 

r 

TIME*  ,228-04 

Ko  3 

P(JWEK« 

,000+OUwATTS 

i 

*i  — 

TIMES  ,369-04 

Ka  0 

PQwEKb 

.OOO+OOWAT 1 S 

■i 

*i 

TIME=  ,530-04 

Ks  5 

power* 

. a 0 0 + 0 0 w A T TS 

TIMES  ,716-04 

KB  6 

PQkER* 

,flOO+OOwATTS 

u» 

i 

TIMfca  ,929-00 

K*  7 

POWER* 

,000  + OUK!ATTS 

p* 

HK 

,00000 

,01667 

,03333  .05000 

• 0 b 6 (5  7 

,1 

Z a , 00040 

1.2 

1.0 

,7  .3 

. 1 

Z*  ,00132 

.3 

.3 

.2  .1 

.0 

Zo  ,00220 

. 1 

.1 

.0  ,0 

.0 

J. 

Z»  ,00308 

,0 

,0 

,0  ,0 

, 0 

a 

1 

m* 

TIMEh  ,117-03 

K3  8 

POWfcPa 

,400+UOWATTS 

■ 1 

f 

TIME*  ,106-03 

Ks  9 

PUWLH* 

,U00+00wAlTS 

TIME*  ,178-03 

Ka  10 

POWERS 

, OOO  + OOwAT  TS 

i 


L8 


TIMfc*  ,216-03  *311  PIJwtHE  ,«00  + Q('W  AT  1 S 


; Tints  »25e-ui 
_ Ra 

I la  ,00044 

" Z*  . .00132 

’ 2 a .00220 


K=i2 

,00000 


I 

23  ,00306 

.0 

.0 

4 . 

\ 

Tints  ,30K-0i 

K 3 1 3 

PU*ERs 

] 

Tint*  ,365-03 

K*14 

PUWfc.Ro 

j 

Tints  ,430-03 

Ks  15 

PUwEWs 

1 

1 .1 

Tints  ,505-03 

Kc  1 6 

PU^EPs 

TIMEa  .591-03 

KS  1 7 

pO^b  Kc 

> 

Rs 

,00000 

,01667 

■ 1 

2 S , 00044 

6,0 

5.2 

■n  ■ 

Z*.  ..  ,00132 

2.6 

2.3 

\ 

1 9 , 0 0 2 2 0 

.6 

.7 

.MV 

j 

l*  ,00306 

.2 

M 2 

-• 

TlMfcs  ,691-03 

KEia 

PUKEKs 

m** 

1 

TIME0  .605-03 

Ks  1 9 

PUWEK3 

MW 

1 | 

TIMES  ,936-03 

K = 20 

POWERS 

' l- 
] 1 

TIMES  , 109-02 

Kk21 

POPEKa 

M * 

Tints;  ,.126-02 

p u w £ K ■ 

f 

ws 

, UOUOO 

.01667 

P U v.  t K a ,400  + OOWAI'TS 
,01667  ,03333  .05000  ,06667 
2.6  1.7  . 9 « 3 

J £ » 6 .3 «1 

.2  .1  • 1 • 0 

.0  ,0  .0  .0 


,06667 

.7 

.3 

.1 


"*Za  ,00044  10,6 

...  Z*  .00  132  - b.9 

w!  Za  .00220  2»6 

*r  2s  . 00306  *9 

I 

.*  TI^Fc  . 146-02  Ks23 
T iMfca  , 169-02  K = 2« 
•■!  Tints  ,196-02  Ka25 

1,  TIHta  ,226-02  Ka26 

i l 

im.  Tints  .2  61-02  6 = 27 

I Rs  ,00000 

T za  ,00044  17, a 

2=  ,00132  11.6 

12a  ,00220  6,7 

Z»  ,00306  3.4 

W Tints  ,301-02  K=2ti 

1 Tints  ,347-02  ke29 


6.2 
3.4 
1 .5 

.3 


,05000 
3,1 
1.7 

,6 

.3 


,06667 
1.2 
. .7 

.3 

.1 


PUWfeRa  . aOU  + OOhATTS 
P (J  W t k s ,4U0+00wATT3 
puwtWs  „400+OUW AT TS 
POWERS  ,400+UOwATTS 


,01667  ,03333 

, 0 5 0 0 

,06667 

15.2  10,1 

5.1 

2.0 

10,1  6.6 

3.4 

1.3 

5.2  3,9 

2.0 

. 6 

2.9  2.0 

1.0 

.4 

PO'aERS  ,400+00  W ATTS 
PCiwEHe  ,aOO  + OOWATT5 


L9 


I 


1 

TlMKa  ,400-02 

Ks  30 

POWERS 

,40u+00wATTS 

1 

Tints  ,462-u2 

K = 31 

POWERS 

,40 1^  + 00  WATT  3 

I 

Tints  ,532-02 

k = 32 

POWERS 

,400+0OwAJT8 

X 

W B 

, 0 0 0 0 0 

,01667 

.03333  ,03000 

, 0 6 b b 7 

1 

la  ,00044 

27,2 

2 3,7 

16,6  6,0 

3,1 

7 

la  ,00132 

20. o 

17.9 

12,0  6,1 

2 • 4 

1 

2=  ,00220 

1«.2 

1 ?.u 

6.3  4.2 

1 .6 

1 

la  ,00300 

9,2 

6,0 

5,3  2.7 

1 . 1 

V 

/ 

Tints  .613-02 

<\=33 

POWERS 

,400+ 00 WATTS 

Tints  ,706-02 

Ks34 

P 0 P E k s 

, 400+0QWATTS 

+>>■ 

TIMES  , 8 1 2 - 0 2 

8 = 35 

POWERS 

, 400  + 00wAT  TS 

Tints  ,935-Ot 

r»36 

POWERS 

, 4 o 0+  0 0 w A T T S 

«v» 

| 

TIMES  , 1 ob«o  1 

-,  = 3 7 

PUWFRs 

,40 0+00 WAITS 

K* 

, U 0 0 0 0 

,01667 

,03333  .03000 

,06667 

la  ,00044 

«1  ■ 0 

36.  7 

23.6  12.2 

4.7 

Zs  ,00132 

33.6 

2V,  u 

19,7  10,0 

3 r 9 

la  ,00220 

2o,4 

23,0 

15.3  7.6 

3.1 

Zs  .00306 

14.9 

17.3 

11,6  5.9 

2,3 

TIMES  ,124-01 

Kc38 

POWER* 

,4 00+00 WATTS 

*»IK 

TIMES  ,143-01 

K = 39 

PUwtRS 

,uOO+OOwATTS 

i 

TIMES  ' , lfeu^oi 

ks40 

PUwfcRs 

,400+yUWATTS 

1 - 

TIMES  ,169-01 

II 

POwF.KS 

,400+OOwATTS 

TIMES  ,217-01 

Ks42 

PUwERB 

, a 0 0 + 0 0 w A T T S 

1 

> +* 

Rs 

, u 0 0 0 o 

,01667 

,03333 

,05000 

, 06667 

la  .00044 

60.5 

32,6 

35.2 

13,0 

7.1 

\ T 

Zn  ,00132 

53,0 

46,0 

30, H 

15.8 

6,2 

! i 

Z*  ,00220 

44,7 

38.8 

26,0 

13,4 

5,3 

i j 

i 

Z = ,0030« 

37.1 

32.2 

21,6 

11.1 

4.4 

"1  riM£=  g b 0 « G 1 

K = 43 

P U w F.  H = 

-UOO+OOWATTS 

' * Rs 

, 0 0 0 0 0 

,01667 

i 03333 

,05000 

,06667 

■ * 2=  , 00044 

65,3 

56,6 

38,0 

19.5 

7.7 

1 Zs  ,00132 

37,6 

50 , 0 

33.5 

17,2 

6.6 

1 . 00220 

49.3 

42.7 

2 8.7 

14,7 

5.6 

,j  ,00308 

41,5 

35,9 

24,1 

) 2,4 

4.9 

J TIME*  ,288-01 

KB  44 

POWERS 

,400+OQwaTTS 

f TIMES  ,331-01 

Ks  45 

PUwERs 

,400+OOwAfTS 

* TIME3  ,381-01 

Ks  46 

POWERS 

,4O0+OOwATTS 

If  Tints  ,438-01 

<■,=  47 

PUwERs 

,400+OOwA (TS 

g Rs 

.oouoo 

,0166/ 

,03333 

,05000 

, U 6 • 6 7 

' L Z*  , 00044 

32.1 

27,5 

18,7 

9,9 

4,0 

I 


1 z* 

.00  132 

31 .0 

26.5 

IB,  1 

9.5 

3.4 

I Zs 

,00220 

30.4 

2b.  i 

17. a 

9.4 

3. a 

* ZS 

. OOiUti 

29.7, 

25.5 

17.3 

9,1 

3.7 

J WAVELfcWyf ha  2727. ONM  TSTEAMs  100,  DAMAGE*  149.  50000. 

_ _ _ _ _ 

I NRUN3  a PULSE  "rtiulH*  • 25G»0 1 NUHbEH  OF  PULSES*’"  ” 1 
*-  BEAM  KaDIuSs  ,040-UlCH  LESION  NAOIUS*  ,500-OlCM 

7 TSTEAMs  100, 


i ...  H = . .00000  .01667  .03333  ,05000  . .06667 

Z«  , 00044  UDa  . 1 73  + 00  , 1 99+00  .297+00  ,579  + 00  . 147  + 01 

"1 

T.SUAhs  ....  20  0. 

'*  _ mmmmmmvmmm 

He  ,00000  , 0 1 b67  ,03333  ,05000  .06667 

Zs  .00044  QUa  . 173  + 00  . 199  + 00  ,247  + 00  ,579  + 00  . 1 47+  0 1 

i 

•,  Zb  » 44 1 • 0 3C  I'i  HAUIAL  tXlENl  0+  IKHEVEWSIBLE  UAMAC,t.=  .4UH-01CM 


MAIN  PROGRAM  OF  CORNEAL  MODEL 


1 . COMMON  4(23.3)  . AHS(6)  * 4?,B(1  1 .3)  ♦ CON  (23)  »C0NX  (6)  .CUT • DTM* DPULS** 

i , lDHfDT»DTX.DZ*HhUll)tIG»IHT.ILENS«IPR0FilPl.IP?*T‘53*lP4»Ip5.Ip6* 

3.  2JVL*LIM,LPi»LP?*LP3*LPii*LP5.LP6»LPy«LTMAX,LZ.K.KTfM.Mi,M?*M3*Nf 

4 . 3Nl»N3*N4fP0X.PTIME*eP*RCll)*REE(7)*PIM*RNffiVL*S(?3*ll)*TH(*O* 

5.  UTSC2200J  »V(23»  1 1)  tVC(23t  1 1 *60  J •VSHC23)  • VSHX(«.)  * XC»  WAVEL*XPn(60l  f 

6.  5XTC60) *Z(23) * ZCON ( 23 ♦ 1 1 ) . ZD ( 8) . ZM 

7.  0 1 M£N3  I CjN  CXC(U)*CXR(23)*l5AMAGE(2.2J»nXC(in»riXR(?31.PTIMF(3fl5» 

8.  1FXCC 1 1) *FXR (23) • IDC50) » JD(5Q) **TT (38) *NPT(381 ,NPUlSF(7) * MRUNC7) » 

9.  2QDC23» 11) »REPET(7) *7IMEX(5) **CT (38) »VE(20.fe0.2) fVXX (?3*  11)  • 

10.  3VZC20.26.S.2) .7T(8) *ZTT(S) .ZTX(B) 

11.  REAL  LFSIQN 

12.  3 F0RMAT(F7.fli3X7) 

13.  9 FORMAT (10F7. 2) 

14.  5 FORMAT (1017) 

15.  6 FGRMAT(F7.2*I7*2E7.2) 

16.  7 FORMAT ( 1 0E7 . 2) 

17.  8 F0PHAT(I7»3E7.2) 

18.  REAUC5. 4)071 *072 

19.  REACC5.4)  (FTlMEU)  *L  = 1»38) 

20.  READ  ( 5 . 5 ) L7 

21.  REA0(5»3)PIM»LIM*IG*TLENS 

22.  REAO(5*fe)RMAX,LIMAXtLESION 

21.***  SET  VALUES  FOR  N»N1»N3*N4,  AND  DR 

24.  N 1 s 4 

25.  N=Nl+6 

26.  N3  = |N+1 

27.  N 4 = N 1 + 1 

28.  RfcA0(5«8) IPROF.POW.CUT 

*29.  OR=LESTOM/LIM 

30.  IF  ( IPR0F,EQ,0)DR  = RIM/(LIM-o5) 

31.  READ(5»7)DPUL8E 

32.  R£AD(5.S)NTEST. (NHUN(l) .1=1 f NT F ST) 

33.  REA0C5.  7)  (KEPET(L) *L=l*NTEST) 

34.  REA0C5.  5HNPULSECL)  *L=1.NT£ST) 

35.  REA0(5»i) 101  * IH2» JOl , J02» 1TYPE 

36.  LPX=1 

37.  IFCNTEST.EO.l  .AND.NPULSE(l)  .FGl.DLPXeO 

38.  IF (DPULSE.CT . .3E-8) GO  TO  10 

3S,**+  ADJUST  POWER  AND  PULSE  wluTH  FOR  EXPOSURES  WTTR  PULSES  LESS  THAN 
40 . ***  , 3E-B  SEO 
4 i , p 0 W **  P 0 W * D P U L S E / . 3 h " 8 

42.  DPULSE=.3E-8 

43.  10  READC5.4)  1 0 ,FI)T  1 . EDT? 

44.  READ(5,4)(A&S(L)»L=l.L2).(REE(Ln.Ll  = l.LZ).WAVFL 

45.  REA 0(5*4) ( T H ( L ) * L = 1 * L Z ) * R V L 

46.  RE  AD ( 5 * 4) (CONX(L) .Lsl  *LZ) 

47.  READ(S*4) (VSHX(L) ,L=1 *LZ) 

48.  READC5.5)  (MPT(D  *L=1»38) 

49.  READC5.4) (XCT(L) *L=1*3«) 

50.  REA0(5*S)  (KTT(L)  ,L.=  1*38) 

COMPUTE  DT.KM,KT,NP*PTIME*TIME*  AND  XC 

52.  L1  = AL0P(DPULSE) /. 69315  + 29. 

53.  IFCL1.LT. 1)L1=1 

54.  IFCL1.GT ,38)L 1=38 

55.  IFCLPX.EO.l )GQ  (0  11 
--SINGLE  PULSED  EXPOSURES 

57.  XC=XCT(L1)  1A2 


MAIN (CORNEAL) 


58. 

NP=MPT(Ll) 

59. 

Kr=KTT  an 

60. 

0T  = DPUI.SE*(XC-1  .)/CXC**NP-l  .) 

61. 

TIMES DT*(XC**KT-1.)/CXC-1  .) 

62. 

GO  TO  13 

63. *** 

---multiple  pulsed  exposures 

6a,  u 

XC=1 .4 

65. 

NP  = 5 

66  • 

X1  = 0 . 

67. 

DO  12  L=l»NTEST 

68  , 

IF  CXI  ,M.NPULSFCL)/REPET(L)  jxi=npulse cl) /repet  cl) 

69.  12 

CONTINUE 

70. 

TlME  = FH8Eai)*Xl 

71  . 

DT  = DPULSF*(XC-i.j/CXC**NP-m 

72. 

KTsALORC 1 , + TIME*(XC-l . ) /DT5 / A LOG ( XC)  + 1 . 

73. 

PTlMEsOPULSE/NP 

7a.  13 

KT=KT+1 

75. 

KMsNPf 1 

76. 

IF  (KT,GT.59)WRITE (6* 1 4 ) K T 

77.  ia 

FORM  AT (1HO . 3HKT= . 13 i 2X • 22HT IME  DIMFNSION  TOO  LOW* 

78. 

IF  fKT,GT.59)ST0P 

79. *** 

CALC.  DZ  AND  I INDICES 

80. 

M 1 = 2 

81  . 

Ms2*M1+ 18 

82 . 

M2=M/2 

83. 

Mi  = M+  1 

8a. 

DZ  = DZ1*  COPULSE* *DZ2) /SORT CAbSCl ) ) 

,85. 

IF  ( ILENS.EQ. l)DZsDZl*CDPULSE**DZ2)/8QRT£  ABS(fl3 ) 

86 . *** 

STORE  AXIAL  DISTANCES  TO  INTERFACES  OF  EYE 

87. 

ZDCl)sl ,F-?5 

88. 

ZU(2)sZDfn  + TH(n 

89. 

ZDC3)*7D(2)+THC2) 

90. 

ZDC4)=ZO(3TtTH(3) 

91  . 

ZDC5)s70fa)+THC4) 

92. 

Z0C6) =ZDC51+ThC51 

93. 

Z0(7)=70C6)  + TH(6'1 

9a. 

ZOC8)=7D(7T+10. 

95. 

CALL  GRID 

9 O . * 

CALCULATE  AMI  SIORE  I.J  TNQICES  AT  WHICH  TEMPERATURES  ARF 

PRINTED 

97. 

I D 1 = I D H- 1 P 1 

98. 

ID2=ID2+IP1 

99. 

IF (ID1.LT.IP1) I D 1 = I P 1 

100. 

IF  C102.GT.mj  I|)2SM 

101. 

IF C J02.GT.NJ JD2=N 

102. 

WHITEC6* 15)101 . ID2» JR1  . JU2 

103.  15 

FURMAH  lH0»aHIDls,T2*3X5  aHID2s»I?»3X.aHJDia,T2.3XtaH.T0?s* 

IP) 

ioa. 

NRITECfrf 18) (R ( J) » J=1 »N3) 

105.  18 

FORMAT C 1 HO .2HK  = / C IX  » 1 0F8.4) ) 

106. 

inRITECft.  19)  (7(  I)  t lal  ,M3) 

107.  19 

FURMATClHO»2HZ~/ClX»lOFa.«5) 

108.*** 

CALC.  NORMALIZE u LASER  PROFILER--- 

109. 

pux=pow 

110. 

CALL  IMAGE 

111. 

WRI TE(6*26)0P» (HRILJ  »L=1  t NO 

112.  26 

FORMAT  ClH0.3HfjP=,t8.3.3X,3HHR  = /(  IX.  10EP.3)  ) 

113. 

DO  27  J=1 tN3 

114* 

DU  27  I = l*M3  T 13 

CALL 


CALL 


L13 
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115.  V(I.J)=1.E-10 

ilfa.  27  S(I.J)=Q, 

117.  WkIT£(6.32) (RtPfcTCL) ,L=1,NTEST) 

118.  3 2 FORMAT ( 1H0. 6HHEPFT  = / ( IX , 1 OE0.3)  ) 

119.  WKITE(6»33)(NPULSE(L)*Lsl.NTEST) 

120.  33  FORMAT ( 1H0*7HNP0LSE=/(1X. 1018) ) 

121  . 00  54  7 = 1 * K 5 

122.  DO  34  J«1«N3 

123.  34  V C C I ♦ J f 11=1 .F-10 

124.  WRITE-;(6«35)  ( AbS  (L)  ,L=1  * 6)  » AP.QPULSF.  OS.DT,  02  . IP1  * IP2»  1P3*  IP4  » IPS  » ■ 

125.  ilP6*JVl»KM.kT,LIM»LPl,LP?,LP3»LP4.LP5*lP6.MtMi,N,Nl,Np,NTES7*pnw*  * 

126.  2PT I ME  * QP ♦ CR£F ( I 1 ) * L 1 = 1 * L 7 ) « R I M • R VL • C 7 H ( L 2 5 » L2  = 1 » L 2 7 « T I ME . T 0 * X C 

127.  35  F0RMAT(lHa,«HA8S5f6F9.0,2X»3HAP=»Ffe.3/lX*7HDPULSP=»EP,3»?X*3Mr)Ps. 

128.  lE8.3»2X*3H0T=.E8.3»2X.3H0Z=.F8.3*2X*4HIPl=*I?.2X«4HlP2s.T2yiX, 

129.  2«HlP3=,I2f?Xf4HIP4=»I2.2X»4HlPS=*I?t?X»4HID6=.I2.2Xi4HJVL=*IP»2X« 

130.  33HKMS  r 13  » 2X ♦ 3HKT  s * 13. 2X , aHLIMs* 12*  2X«  UHLPl  = i T2/ lXf  4HLP?e  * I ? * 2X ♦ 

131 . 4 4HlP3=.  12.2X  . t.HLP4=.  I2.2Xt4HLP5=.I?*2X.4Hi_Pfts,T?,2X, 

132.  53HMs.I?*?X.3HHls,I2,2X*2HNsf I2*2X*3HNl8,I2*2X»3HNpB,I2/lX*#*HNTFSTa 

133.  6. 12t2X.4HPOWs.Ett.3t2X.6hPT  I MF.=  . E 8 . 3 ♦ 2X  . 3HQPs  , ER  . 3/  1 X . UHRFF=  . 6F9 . 3 , 

134.  72X»4HRTMs»F8.3/1X.UHRVL=.F7,3»2X.3HTH=.5E10,3/1X.E10,3*2X,c;hTIME«, 

135.  8E8«3*2X.3HT0=.Fb, 1 »2X»3HXCs.F6.2) 

136.  READC5.6) KTVPEO 

137.  REA0(5.61KTVPE 

138.  LlsKTVPE 

139.  IF (KTYPE.EO.OJLlsi 

140.  REA 0(5.7) (TIMfXlK) • K c 1 . L 1 ) 

141.  RE  AO  (5. 5)  111i.II2.1I3.JJ1.JJ2 

1U2,***  START  OF  TEMPERATURE  CALCULATIONS  FOP  ONE  PULSE.  TO  BE  USED  EITHER 
1*43. ***  FUR  MULTIPLE  OR  SINGLE  PULSED  EXPOSURES 


20 

21 


22 

23 


144.  -< * 

lab.  xrcnso. 

146.  DTXsOT 

147.  FTX=KT+1 

148.  DO  36  K = 2 • K T X 

149.  XT(K)=XT (K-1J+D7 

150.  36  DT=XC*nT 

151.  IkX=TIME**FOT 1+EDT2 

152.  IF ( IKX.LT  . 1)  IKX=1 

153.  >X=2*IKX 

154.  WR I T E ( 6 * 3 / 1 X * X 

155.  37  FORMAT ( 1 H 0 ♦ 4 H I K X = . 12) 

156.  Ks2 

157.  IHT=2 

158.  ITYPEX=I'' YPE 

159.  38  DT=XT(K)-XT(«-1) 

160.  IF(K.GT.KM5QPaO. 

161.  CALL  HTXDEP 

162.  IF(K.GT.?3GU  TO  a\ 

163.  no  40  TsIPl.M 

164.  WRITEC6.39  ) (S(l.J) *Jb1,N) 

165.  39  FORMAT ( 1H  .2HS=» 10E8.3) 

166.  40  CONTINUE 

167.  41  WRITE (6, 42) XT (K1  .K.POW 

168.  42  FORMAT(1HO*5HTTME=.E8.3.3X.2HK=«I2.3X,6HPOWER=.ER.3.5HWATTS) 

169. ***  CALCULATE  TEMPERATURE  RISE(MATRIX  REDUCTION  ALGORITHM) 

170. ***  C OLUMNS(NORMAL)----- — ------------ 

171.  IK*1 


Call 


L14 


i 

1 
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172.  43  DO  45  T=IP1  *** 

173.  h=xX*VSn(I)/PT 

174.  DO  44  J=1,M 

175.  PXC(J)sw+C0N(I)*8(J»2) 

176.  IF  C J.GT.J)FXC(  J)=FXCf  JWC0N(I)*B(J«  H*CXC<  J-l) 

177.  CXC  (J)s-CONC  I ) * fc*  ( J *35  / FXC  CJ) 

176.  SUMs  (w- A C I.25)*V(lfJ)  + ACr»n»V(I-l*J)+A(I.3)t'V(I  + l»J)+S(IfJ) 

179.  DXC ( J)=SUM/FXC ( J) 

160.  iF(o,GT.i)Dxc(j)s(suMi.coNcn*e(j»n*oxr.(  j-nwPxc(jj 

161.  44  CONTINUE 

182.  VXsO. 

183.  DO  45  LsltN 

184.  JsN+  1 -L 

185.  VXaOXC(J)-CXC ( J)*VX 
18b,  45  VXX(I.J)=VX 

187.  DO  46  TsIP.l  ♦ M 

188.  DO  46  Jsl.N 

189.  46  VC  I ♦ J)  = VXX  C 1 • J) 

190  . ***  RU  W'S  (NORM  --------- 

191.  CXR(IP1-1)=0. 

192.  DO  50  Jsl.N 

193.  DO  48  I s I P i » M 

144.  InsXX*VSk(X)/D1 

IQS.  FXPcns4i  + Aci»2UACi»n*cxH(i-n 

196.  CXR(I)s.ACT.3)/FXR(n 

197.  SUM=£W-C0NCI)*HCJ.?))*V(T.J)+C0N(n*P(Jt3)*Vn.J+n+S(I.J) 

198.  IF  ( J.GT.  n SUMs,SUM  + CON(  I )*HC  J . n *v  ( T , J-n 

199.  DXR(n=SUM/FXPCn 

2*0  0.  IFQ.GT.IP1)DXR(T)  = (SUM+A{1U  1)*DXR;i-1)  )/FXR(Il 

201.  48  CONTINUE 

202.  V Xs 0 • 

203.  DO  50  I.SIP1.M 

204.  isM+IPi-L 

205.  VXsDXR ( I) -CXR  ( I ) *VX 

206.  VC(I»J.K)=VX 

207.  50  VXXCI»J)=VX 

208.  DO  51  I=IP1 f w 

209.  DO  51  J=1»N 

210.  51  V(I. J)=VXX(I»J) 

211.  I K s J K ♦ 1 

212.  ; * RECYCLE  TEMRF.RATURE  CALCULATIONS 


213.  IF  UK.LE.IKXIGP  TU  43 

. 214.  IF (k.EG.KM) GO  TO  62 

215.  IF (ITYPEX.LT.lTYPfc.AND.K.LT.KT)GO  TO  66 

--  216.  62  WRIT  E ( 6 . 63 ) (RCJ) *J  = JD1 ♦ JD2 } 

! 217.  63  FORMAT  flH  . 1 Ox  . PHRs  t 9F  8 . 5/ ) 3X  . 30H ----- ) 

**  218.  DO  65  I - I D 1 .102 

219.  RRITE (6 . 641 Z ( I) » ( VC  C I . J.K) » J = JD1 . JD2) 

1 220.  64  FORMA TC1H  ,2H2=.F8.5*2X,9F8.1) 

— 221.  65  CONTINUE 

222.  ITYPEX=0 

7 2P3.  66  KsK+1 

1 224.  ITYPEX=ITYP£X+1 

225.  IFCK.LF.k)  )GO  TO  38 

1226.-**  READ  NORMALIZE^  TEMPERATURE  RISES  TS  OF  GRANULFS  FOR  .IE-8  PULSE 
227, <**  AND  CALCULATE  NCJRMALTZED  RISFS  XPD  FOR  ACTUAL  pUl SE 
228  . 70  FORMATf 1 H 0 . 6 1 HDI MENS  I ON  OF  ARRAYS  ASSOCIATED  WITH  argument  LlJ  IS 


L15 


I 


71 


72 


7fl 


75 


Ik, 


I 

1 

1 

I 

K 


229. 

230  . 

231. 

232. 

233 . 

234. 

235. 

236. 

237. 

236. 

239. 

2^0. 

241. 

242.  *** 

243. 

244 . 

245. 

246. 

247. 

248. 

249. 

250. 

251  . 

252. 

253. 

254. 

255. 
2,5b. 

257  . 

258. 

259. 

260  . 

2 61. 
262. 
2b3. 
26U. 
265. 

266 

267. 

268. *** 

269. 

270. 

271. 

272. 

273. 

274. 

275. 

276. 

277  . 
278. 

279  . 

280 » 

281  , 

282  , 
283. 

284  . 
285. 


MAIN (CORNEAL) 

1 TuO  SMALL) 

READ(5te)DIM»LTMAX 
00  71  L1=1*LTMAX 
TS  ( L 1 ) = 1 . 

HtAO(5*4)CTS(L)»L=t»LTMAX,10) 

CALL  MXGRAN 
DO  72  L=1*KT 
XPD(L)=AP*XPD(L)+1.-AP 
KtAD(5*4)  (OAMAGt(L2*  1)  *DAMAGF(L  2t2)  tL2=l  * 2)  * TST(-_  AM.OTSTM 
ylHITEC6t73)WAVfrL*TS  If  AM, damage.  Cl«n. Damage  (U?  )»r>AMA(:E(2»n. 
1DAMAGEC2»2) 

73  FORMAT C 1H0 , 1 1 HWAVELENGTHs » F7 . 1 » 2HNM , 3X » 7HT ST F AMs . F6 , 0 , 3 X * 7 HD  AM AGEs 
1 .4F9.0) 

CALCULATE  I»J  INDICES  AT  WHICH  DAMAGE  CALCULATIONS  ARE  TO  RE  MADE 
J Ms  0 

DU  74  J s 1 * N 

IFCRC J)  .LT.RMAX+,  000001) JM=J+1 
CONTINUE 

x l a u . 

DO  75  I = IP1  ,M 

if  czcn  .lt..oooc)go  to  75 
1F(VC(I*1*KM).GT,X1)IMAX=I 

IF(VC(I.1»KM).GT,X1)X1=VC(T*1»KM) 

continue 

LsO 

1D1=IMAX-LIMAX 
IF(IDl.LT.IPl)  IDUIP1 
I D2= I M A X t L I M A X 
CO  76  I=ID1 , ID2 
DO  76  J=ltJM 
L = L+1 
1 0 ( L ) a I 
JD  ( L ) a J 

LIJ=(ID2-ini+l)*JM 
IF(LIJ.GT.20)wRITE(6.70) 

IF(LIJ.GT,?0)STOP 
IFCL.PX  .EG.OJGO  TO  125 

TtMPERATURF  AND  DAMAGE  EVALUATIONS  FOR  MULTJPLF  OUI.SFS 


24 


25 

CALL 


26 


76 


, **■* 


77 


EVALUATE  T f kPFk A T URF  RISES  WITH  AND  WITHOUT  GRANULES 
DO  77  L=1  * L I J 
I s I D t L ) 

J = J 1/  ( L ) 

VE(L*l*l)=0. 

VE(L» 1 *2)=0. 

DO  77  w=?,KI 

VE  ( L * K » 1 )=VC(I*J»8) 

VE(L,K,2)-VC( I • J » K ) 

1FCI.NE.TG1GO  TO  77 
Vt(L»K*2)=XPD(K)*VC(T» J*K) 

CONTINUE 
X60=(xr.-1  .)  /DTX 
X61=AL0G(XC) 

XSTEAM=TSTEAM 
DO  100  L 1 3= 1 * NTEST 

X35DPULSE+CNPULSECU3)-n/REPET(L13) 

WRirE(6t76)NRUN(L13)  , X3  * DPULSE  . NPUL  SE  ( L 1 3)  »RFPFT  tl.  1 3) 

Lit) 


!'  i 

1 
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f 

28b. 

76 

F U ft  M A J ( 1HQ  »bHN9ijKisf  I 3 * 2 x f 1 3 h T R 4 J N!  1 t^GTH=,F8,3f3wSFr»?y*12HPHL^F  W 

: ‘ ' 1 

I <16  7. 

1 1 oTm=  , Fo  . 3 . 2 X . 3hS£C/ 1 x . l 7H^Uy  bFR  OF  PuLSF’s=  * T5«  3V  ♦ 1 /jHrfpftttION  Ra 

1 

■ 6S8. 

21  t=.F8. n lOn^uLbUS/SFC) 

264. 

w 9 I T F t ft  . 7 9 3 ft  I 8 ♦ l F S I U M „ „ „ 

I 

79 

8 U ft  M A [ ( 1 H »l2nHt.A8i  KA0TUft=.tft,3f  PriFNtbXi  14HLFSTQW  R T US*’*  FH  . 3 , ?Hr 

1 2V1. 

1M 

292. 

T C= 1 . / ft  t R t T (Ll3j 

, 293. 

Nft[.  = Sv.ft!JL$£(L.t  3) 

-Va* 

KX  = nP  + 3 

1 £9b. 

l*si 

29b. 

o3 

IF  (NPS./IN.LT  .20)50  10  84 

297. 

I'M=INt? 

29o. 

i.L)  TO  S3 

£99. 

84 

X 1 = NPl 

300  , 

iNXs.i+Xl/TN 

301  . 

LlsALuG(OPUI.St)  / « b 9 3 1 b+2°. 

.+ 

302. 

i f ( l i . n . n L 1 = 1 

30  3. 

l**Xs8  T1"E  ( L 1 1 * IK'X 

30a. 

¥ ¥ * 

STOkE  T i M £ I X- 1 F r<  0 A L S AMO  LOGS  OF  IMTFhVALS  FOft  0AMAGF  r A 1 CHLAT  TOMS 

' 30b. 

2 1 X ( 1 JsPT  1 1*£ 

30<). 

21  (l)sPi]('F/2, 

/S 

307  . 

2 TT  ( 1 ]sAL(iO(  lM*PTlMt ) 

308. 

DO  65  I3=£»NP 

309. 

7 1 T CL31  siLOG  C iM  + f-'l  I rf  ) 

310. 

ZTX'CL3)=7TXUA-n  + Pfli-F 

31  i. 

bb 

21  (L'3Js2T(L3-l)+P1  IPP 

318. 

L1SNP+1 

313. 

314, 

xi=(TC-uPljL  S h 3 /CKX-NP) 
Z 1 X ( lr  1 1 = 0 P U L S F.  * X 3 

' 

31b. 

Z I (LI JsoPul  0FtX3/2. 

31b. 

ZrTiLn=ALr&CiN¥X31 

317. 

L 1 = 1_  1 + 1 

316. 

*- 

* 

11 

X 

X. 

Y 

319. 

L IT  (L.  31sAl(!G(  F M * X 3 ) 

A60  . 

ZTV  11.31  s'/TV  ( La-  11  + X3 

3 £ 1 . 

8ft 

ZT  (L3J=21 (L  3-11  + X3 

'■  ‘ 

322. 

-CALCULAfF  TfcPh’FrtAIUKF  R 1 S F S AbSOf  J A TED  wlTH  15-th  TIM[  IMTFRVaL 

3 £ 3 . 

¥¥  ¥ 

POLLOftTt- C-  fi.6-.bJ.fIN-. 9 P U L S F 

? 

3?4  . 

00  95  L=1  .<1J 

o . * 

• 32b. 

00  45  1. 3=l»*x 

32b. 

X 1 n G • 

• 

3?7 . 

X2=0. 

- i2o. 

Ll=l+IM/2 

329 . 

L/*l 

‘ 

33  0. 

8 7 

X3siL7-1J4Tl+2T CL3) 

,t  , J 

33  i . 

K = AlOG ( X ?♦ Vo0+ 1 . ) / X b 1 + 1 . 

" 332. 

X b = V F 1 1 »,,'*1)  + (X3“XT(K))¥fVF(l.K+l  flJ-VF(L|K»J))/fXT(^+1  ) - X T ( K ) ) 

3 33. 

Xl  = *l  + X-3 

1 

33u. 

XA»lL7-n*TL  + ZTA(L3) 

J 

3 3b. 

K = ALOG(x3'»XbO+1  .J/X61  + 1 . 

33b . 

X£SX2+Vt(L«4»£j  + fXT.-XTfK1)*(VF.  (L»K+l»2J-VE(L.K.2))/(XTfK+n-XT(KJ) 

1 

337. 

I ^ ( X b . L i . . 0 0 0 1 ¥ X 1 ) 0, 0 T o 4 8 

J 

336. 

L /’  - u 7 ♦ j 

33  9. 

I 8 ft  7 ,i  r.  .1.1  1 GO  TO  8 7 

<a 

340  . 

86 

vz(l ♦ l .l3. n sxi 

1 

34  1 . 

( L * 1 tL?»?)sXP 

9 

342. 

Du  V 3 L n = £ -■ I N X X 

« 

9 

L17 
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T 3^3 . 

j 3aa. 

* 345. 

346. 

r 3a7  . 

..  348, 

349. 

90 

" 350. 

351  . 

*'  352 . 

353. 

354. 

• 355. 

356. 

357. 

358  i 

359. 

91 

360  . 

93 

361 . 

362. 

363. 

364. 

3b5. 

94 

366. 

95 

367 « 

*** 

368. 

369. 

}70. 

96 

371. 

372. 

373, 

374. 

375. 

376. 

377. 

378. 

379. 

360. 

381  . 

382. 

99 

383. 

384. 

100 

385. 

385. 

387. 

! 388. 

" 389, 

..  390. 

< 391. 

-•  392. 

393. 

““  394, 

L 395 . 

101 

396. 

* 397. 

t f t 

j 393. 

* 399. 

IFCX5.LT, .0001 *X1) GO  TO  91 
X1=VZCL*L6-1 «L3*  11 
X2=VZCl.  1L6-I  *L3.?) 

L2=L1+1 
L1=L1+TN 
L?  = L2 

X3s(L7-l)*TC+ZTCL3) 

KsAL0(?(x3*X6C+l  «)/Xfal+l  , 

XbavECL»Ktn  + (X3-XT(K))*CVECLfK+l»n-VF(LfK*lJ)yfXTCK+i)-XTCKn 
X1=X1+X5 

X3=(L7-n*TC  + 2TXCL3) 

KsALOG ( X3*XfcO+ 1 . 3/X61+1. 

X2=X2tVECL*Kt2)  + (X3-XTCKl ) * ( VE fL ♦ K+ 1 , 21 -VE C L . K » 2) ) / ( XT (K+ 11 -XT  CIO ) 

IFCX5.LT.  . 000 1 «X 1 3 GO  TO  91 

L7=L7+1 

IFCL7.Lt. LI  5 GO  TO  90 
VZCL»L6»L3»JJaXl 
VZCL»L6»L3»2)=X2 
Li=IMX+l 

DO  9a  L6=L1*TNXX 
Lb=L6-INX 

VZ(HL'»»L3*llsVZ(HL6tL3*l)-VZCL»LP*l.3*n 

VZCL.L6»L3.2)=vzCL«L6.L3*21«VZ(L»L8iL3t?) 

CONTINUE 

DAMAGE  CALCULATIONS  — 

TSTEAmsXSTEAM 
X Q s 0 ■ 

wRITECfc* 129)TSTLAM 
DO  ioa  L=1*LIJ 
IhIDCLI 
J=JD(L) 

IF(VZCIfINy»Nh>*l).LT.,OOnOD(I«J)a1.E+20 
IF(VZ(L*INX.NP. n .LT.. 001)00  TO  10a 
L9=10.tC.4+EXPC-.00l4fOPULSEl )/VZCLtlNX.Np.  1) 

CQ  = L9+1  . 

X10s70.*(.U  + EXPC-.OOia*DPULSEn/VZ<L»INXtNP*  1 ) 

IF(L9.EU,0)CQ=X10 
LLTsO 
LOTsO 
0 A M C s 0 « 

1.6=1 

DO  101  L 3 = 1 » K x 
X 3=  0 . 

IFCVZCL»L6,L3.?)*CO.GT.TSTFAM-T0)X3=l.E+30 
IFCVZ(LtL6tL3,?)+CO.Gr.TSTFAM-TO)GO  TO  101 
X50  = VZ(L*I>*L  3t  n*CG  + 273.  + T0 
IFCX50.LT. 317. )GO  TO  1 0 i 
X laZTT (L3)+DAhaG6  C 1 ♦ 1 ) -DAMAGE  C 1 *?) /X^O 

IFCx50,GT,323,)X1=ZTT(L3)+DAMAGF(2«1)-DAmAGEC2*2)/X50 
IFCXl.PT. 0.3X3=1.01 
IF CX' .GT.O.JGO  TO  101 
X3=E  PCXl) 

DAMC  = QAMC  + X 3 
IFCDAMr.GT. 1 .)GO  TO  102 

increase  time  indices  and  continue 

Lfa  = L6+  1 

IF (L6.LE. INXXJGO  TO  100 
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aoo . *** 
aoi . 

402. 

403. 

404. 

405. 

406.  102 

407. 

408. 

409. 

410. 

411.  103 

412.  104 

413. 

414. 

415. 

416.  105 

417.  106 
416. 

419. 

420. 

421  . 

422. 

423. 

424.  108 

425 . 

426.  *** 
4,27 . 

4'28. 

429. 

«30. 

431  . 

432. 

433. 

434. 

435. 

436. 

437. 

438. 

439. 

44  0 . 

«41  . U3 

442. 

443. 

444. 

445. 

446  . 

447, 

448, 

449,  1 14 
450  . 

451.  115 

452.  116 

453. 

454. 

453 . 1 1 / 
4 56. 


ADJUST  L.ASFR  PC*FR  TO  VIFLn  THRESHOLD  DAMAGE  AT  GIVEN  PQTNT 

IF(LGT.t3.nCG=1.0?*CQ 
IKCLGT.EO.nttO  10  103 

LLT  = 1 

CM=1.04*CQ 
GO  TO  99 

IF(LLT.£Q.nCQ=.98*CQ 

If- CLLT.EQ.  1)  Go  TO  103 

LGT=1 

Cw= ,96*CQ 

GO  TO  09 

QD(I» J)=CO*POX 

CONTINUE 

WKITE(6.631  (»(J)  ♦ J=1«JM) 

DU  106  1=101,102 

^KITECft* 105)2 (T) , (OD(I.J) » J=l* JM) 

FORMAT (IN  ♦2HZs»F7.5.1X.3HGDs.6E8.3) 

CUNT iNUfc 

X2=  CX«-UD( I MAX  » 1 ) ) /QOC IMAX . 1) 

X3=X2+X2 

IFCX3.lT, .0001 )GO  TO  106 
TSTEAMslSTf:  AM  + OTSTM 
XQsQDCIhAXt  11 
GU  TO  96 
CUNTINUE 

IF (KTVPE.EO.O)GO  TO  174 

CALCULATE  AMD  STOKE  TEMPERATURES  FOR  PLOTTING  TEMPERATURE  PROFILES 
TC=1./REPETC J ) 

NHLsNPULSE C 1 ) 

DU  123  Llbsl .KTYPE 

IFCTIMFXCL1  5)  .G1  . KT  ( K n ) C-0  TO  123 

RGV  = 0 , 

L2=TIMFX  CL1 5) /TC 

DTImEsTIMEX  CL15)-L2*TC 
L 2 = L 2+  1 

DU  Ufa  IsJTi  ,112 
DO  lift  JsJ.Tl.JJ2 
X1  = 0. 

DO  113  L6=1.L2 

K=ALOr- C(DTTMEt(L6-l)+TC)*X60+i.)/X61  + l, 
X2s(DTTMF+fL6-l)*ir-XTiKT)/CXTCK+n-XTO<n 
XlsXl  + VCCI.J»K)+X2*CVC(l»J.K+n-VCfI»J»K)) 

VCX* J)*X1 
L3=L2-NRl 

I F ( L 3 , L E » V ) G 0 TO  115 

X 1 = 0. 

DU  11«  L6=1  ,1.3 

KsALOGf (DTTME*  CL6-1) *TC) *X60+1 .) /X61  + 1 . 

X2= (DTIMF+ (Lfc-1 )*TC-XT (K) ) / ( XT ( K+ 11 -XT (K)  ) 

XI  = XJ+VCU*J*K)  + X2*(VC(I.J»K+l)-VC(IfJ,K)) 
vn»J)*VCI*J)-Xl 

IFCVCI. J) .RT.PGV)HGV*V(I.J> 
continue 

IF  (KTYPtn.FQ.  HGO  TO  121 

rtRI  1 E C 1 , 1 17)NRUN( 1) , MPULStC 1) ,REPET( 1 ) 

FORMATf 2T7.F7. 1) 

WRITECltll8)CPULSE, RAVEL, RIM 
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FORMAT ( 1 0E6 . 3 ) 

wRITECl .1 19) III » II2» 115, JJ1 , JJ? 

FORM A T ( 5 J 7 ) 
wRITEC 1 * 1 19) N3»M? 

WRITE ( 1 * 120) ( R ( J ) * jsl * NJ) 

FORMA) f 10F7.U) 

WRITEn»120)  tZUMsl  ,M3) 
WRnECl»HR)TlMEX(L15) 

DO  122  Iain,ii2 

WRITE (6* 12B) (V (It J) , J=JJ1 , JJ?) 

IF CKTyPFG.FO. n oo  TO  122 

WRITFC1 , 12P) ( V f I. J) , J=JJ1  , JJ2) 

CONTINUE 

CONTINUE 

GO  TO  174 

DAMAGE  CALCULATIONS  FUR  SINGLE  PULSE 


125  KKITE(6,12<ONRUN(ntOPULSe»NPULSEU) 

126  FORMAT (1H0«5HnRUN=,I3,2X* 1PHPULSE  WIDTHS, E«.3» 2X t 1 7HNUMBFR  OF  PULS 
lESs*  151 

WKITE(6i 79) RIM, LESION 
XU=0. 

127  W R I T t ( 6 * 129) TSTtAM 

128  FORMAT (10F7.1) 

129  FORMAT  ClH0.7HTSTEAMs,F7t0/lX»l  OH ) 

DO  138  I * I D 1 * I D2 

DO  136  J=1*JM 

lF(VC(T*J»KM).LT.,001)QO(I*J)sl,F+20 
IF'CVCCI*  J-KM)  .LI  ..001  )G0  TO  13B 
L9slO.*(.4+EXPf-.yoia»DPULSE))/VC(I»JfKh) 

C U = L9+  1 . 

X10=7Q.*C.4+FXP(-.001  u*qpuI.SF)  )/VCfI»J,KM) 

IFCL9.FQ.O)CQ=yiO 
LLT  = 0 
L G T = 0 

130  DAMC=0. 

K = 2 

131  Xl3=AL0G(XT(K)-XT(K»i)) 

VPXsCVC  (I  *J*K)+VC1I  *-7  .K«l)  )/?. 

X 3=0 . 

IFCl.NE.IOOO  TO  133 

IF(  VPl.*XPDCK)*CG.GT.TSTE  AM-T0)X3=1  .E+30 
IF(VPX*XPD(K)+CQ.GT.TSTEAM~rO)GO  TO  134 

133  X5QsVPX4‘CQ+273.  + Tu 
IF(X50.LT.317.)GO  TU  134 

X1SX13  + 0AMAGF (1  * 1)-DAMAGF(1 ,?) /X50 

lF(X50.GT.323.)XlsX13+DAMAGE(2,l)-DAMAGE(2.2)/X50 

IF(X1.RT.0.)X3»1.01 

IF(X1.C-T.O.)GO  10  134 

X3=EXP ( X 1 ) 

134  DAMC=DAMC+X3 
IFCOAMC.GE. 1 . )G0  TO  135 
K = K + 1 

IF(K.LT.KT)GO  TO  131 

***  ADJUST  LASFR  POWER  TO  YIELD  THRESHOLD  DAMAGE  AT  GIVEN  POTNT 
IF  CIGT.EO. 1 ) C0= 1 - 0?*CQ 
IFtLGT.EP.1 )G0  TO  136 
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I 

1 

I 


1 


1 

1 


su. 

blS. 

516. 

517,  135 

5 1 8 . 

SIS!. 

52  0 . 

521  . 

522.  136 

523.  138 


52U. 

525. 

52b. 

527. 

528. 


529  • 

530. 

531. 

532. 

533. 

534. 

535. 

536. 

537. 

538. 

539. 
560. 
561  . 
54  2. 


543. 

544. 


143 


*** 

150 


545. 

546,  166 
547  . 


548. 

549. 

550. 
551  . 


LLT=1 

CU  = 1 .04*01 
GO  10  130 

ifcllt.eq.  ncuis.«»b*co 

IF (LLT.EQ. 1) GO  TO  136 

LGT=1 

CUs  ,9b*C« 

GO  TO  130 

0D(I.J5aCU*P0X 

CONTINUE 

»lf<ITEC6»63)  (R(J)  ♦ jal  , JMJ 
DO  143  1=101.102 

WKITEC6* 105)Z(I) t CQDC I, JT  » J=1 * JMT 
CONTINUE 

X2=(XG“QD(IMAX.  1 ) ) /<JD(lMAXt  1) 

Xi=X2*X2 

IF(X3,LT..OOOl)bO  TO  150 
TSTEAM=TSTE AM+DTST M 
Xn=QD( TMAX . 1 ) 

GO  TO  127 

CALCULATE  AND  STORE  TEMPERATURES  FOR  PLOTTING  PROFILE 
IF  (KTYPE.EG, 01  GO  TO  174 
DU  170  LI  5=1 . KT Y PE 
DTlMEsTlMtX(LlS) 

KaALOGCDTlMETCXC-l .T/DTX+l . } / ALOG(XC) 1 1. 

IF  (K+i.GT.KTH'.O  Tu  170 

Xl  = (DTIMF-XTCi<n/(XT(K+n-VTOO) 

RGVsQ  , 

DO  166  1=111.112 
DO  166  J=JJ1  »J.J2 

V(I*J)sVCCT»J»K)+Xl*CVC(Ii JtK+l)-VC(I*J*K)i 
IF(VCI.J) ,GT ,KGV)RGV=V( I. J) 

CONTINUE 

IFCKTYPEO.PO.il  GO  TO  167 

WHITEC 1 . 1 171 nwun( l ) * NPULSE ( 1) *REPET ( 1 ) 

WRITE ( 1 » 1 18) DPULSt.WAVEL.RIM 
WHITE (1*1193  111 ♦ 112. 1 13. JJ1 , JJ? 

WRITE  C 1 ♦ 1 1 o) N3.M3 


552.  WHITEC  1 * 120)(R(JT  , J*J  ,N3T 

55  3.  WRITE C 1 * 120) (2 C IT . 1 = 1 , ^ 3 T 

554.  KNITEM  ♦UK)TIMEX(L15) 

555.  167  DU  168  1=111.112 

556.  WKITEC6* lift) <V( It JT  » J = JJ1 t JJ25 

557  . IFCKTYPtO.FW.DGO  TO  168 

558.  to  R I T E ( 1 * 128) (VC I.J) . J= JJ1 . JJ?) 

559.  168  CONTINUE 

560.  170  CONTINUE 

561.  ***  INTERPOLATE  AxJAL  EXTENT  OF  DAMAGE 

562.  174  IH=M2F2-M1 

563.  I F C ILENS.EQ.O) IP=1P1 

564.  15=0 

565.  16=0 

566.  IFCIOi.EO.IDPTGO  TO  IB? 

567.  DO  175  I=in\.ID2 

568.  L 1 = I D 1 + 1 02-  I 

569.  IFCUDCLl.n  . G T . POX  ) I5=L  1 

570.  IFCUDCLl.n  . I.  T . POX  ) I 6=L  1 
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IF(UDCT.l) .bT.PQV) 17=1 
IF(GDCI«1)  .LT.PQX)  Tb=  1 

175  CONTINUE. 

IF(15.FG.01lNPlTfc(6*17h)  

176  FUPMAT  ClHQ.ubhOtPTHS  OF  OARAGE  kSEYDND  BOTH  SPECIFIED  DEPTHS) 

IE  ( 1 5 . EQ • 0 1 GO  T u 182  1 

IE  C16,Ful.0)G0  TO  190 
1 F ( 15 . Gt  . IM  Gu  TO  17- 5 

X3aALuRCODfIb»l)/0D(T5tn)/(Z{l6)-ZCT5)) 

X 1 = iJ  0 ( T 5 • n 

X3  = ALOGlPOX/xn  / X^  + Z(I5)-Zf  IP  )+l>Z/2. 

WSITE(6»177)X3 

177  F U R M A y ( 1H0  INiMijM  DEPTH  DF  DAMAGF=*£8,3»?HrM') 

178  IF(18,Rt.I7)GU  TO  162 
X«:sAL0G(QDCie»l)/liO(T7*n)/CZ(Ttt)-7(T7)> 

X 1 = Q D C 17  • n 

X3sALUGCP0Y/xn/X2  + ZU7)-zap  )tDZ/2, 

160  wHlTtCbt  16UX3 

161  F U R i-l  A T ( 1 H 0 * 2 A'  H H A X I H IJ  M DEr:TH  OF  D A M A G F=  * E 8 . 3 * ? H C M 1 

***  INT ERROL  ATE  Radial  c XT  ENT  OF  IRHEVFRSIRLE  Damage  at  SpFCTFTtO  DEPTHS 

162  Du  189  IsIDl  • ID2 
Jiao 

X3=Z(I)-7(Ip  J+OZ/2. 

U u 183  Jsl*JH 
IE CPOX.GT .00(1 » J) ) Jlaj 
183  CONTINUE 
X20  = 0 . 

IFCJl.Fu.0lGO  Tu  187 
IFCJl.Fw.jMjhKllFth, 165)X3,R(JM) 

185  F OHMAT  ( 1 HO  * 2HZa  * F6 . 3 » 2HCM  * 5X  t 36.HP  ADI  AL  EXTFNT  Dp  DAMAGE  GRFaTEP  Th 
lAN*t8.3»2HCM) 

IFCJl .FL.JMJGb  TO  169 

x2salugioo(  i«  di  + n/ur>ci»jn ) / (PCJi  + n-PtJii ) 

X1=0DCI* J11 

X20=ALOG(PDX/X 1 ) /X2+R(J1) 

167  WKlTF(6tl86)X3*X?0 

168  FORD  A]  ( iH0,2HZ=,Ffe.3,2HCM,EX,37HPADlAL  t X T F N T OF  I R R F V P R S I PLF  DA^A 
lGE=«Eb.3*2HCP) 

189  CONTINUE 
SIOR 

, 190  H KITE (6*191) 

, 191  F0RMA1  (1H  0*31  El  Nu  DAMAGE---!.  A PER  POWER  TOO  LOW) 

, STOP 

. END 


I'.NL  0 T ] I N 1. 1 1.793  SECONDS, 


T/IN  kkIIU 
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1 . 
2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

10. 
11  . 
12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21  . 
22. 

23. 

24. 

25. 
2b. 

27. 

28. 

29, 

30. 
31  . 

32. 

33. 

34. 

35. 

36. 

37. 
36. 

39. 

40. 
41  . 
«?. 

43. 

44. 

45. 

46. 

47. 
40. 

49. 

50. 
51  . 

52. 

53. 

54. 

55. 

56. 

57. 


SUBROUTINE  GRID 

***  GRID  COMPUTES  THE  COEFFICIENTS  I N PART  T AL  DIFFERENTIAL  EQUATIONS  A AND 
***  RADIAL  AND  AXIAL  COORDINATES*  R AND  Z,  AND  ASSIGNS  CONDUCTIVITY  AND 
***  VOLUMETRIC  SPECIFIC  heat  to  grid 

COMMON  A (23,3) * ARS(6) »AP, B(ll ,3) ,CON(23) ,C0NX(6) «CUT»DIM,DPULSE, 
1DR,DT,DTX,0Z*HR(1 1) tlG.IHT, HENS* IPROE.IPi . IP2*IR3* IP4.TP5. IP6, 
2JVL»LIM,LP1 ,LP2,LP3,LP4,LP5,LP6*LPX,l  TMAX,LZ.K*KT,M,MlfM?»M3»N* 

) 3Nl,N3,N4,Pnx.PTlME.QP,R(in,REFC7),RIM,RNfRVL,S(?3.in*TW<6). 

4TSC2200) , Vf 23* 1 1) »VC(23, 1 1 .60) , VSH(23) *VSHX(6) *XCtWAVEL,XPD(60T , 
5XT(6O).Z(23)*ZCON£23.11).ZD(0)*ZM 
DIMENSION  IX(b),LX(6) 

R ( 1 ) = 0 . 

CK=N-N 1 

CPbHVL/UR-NIM  . 

X 1 s 2 • 

180  R2  = EXP(AL0G(2.<!CCP*(V1-1  ,)  + l ,)/(Xl  + l.))/(CK-l  .)  ) 

IF(R2/X1.GT. .999999. AND. R2/X1.LT.  1 .000C0DG0  TO  183 

XI  = R2 

WRITE (6, 182)CP*CK,Nl .N.DR.Xl  --- 

182  FORMAT ( IH0,2E10.5,2I7*2E10.5) 

GO  TO  180 

183  WRITEC6. 104)P2  

184  FORMAT ( 1H  ,3HR2=,F0.4) 

RNaOR*  CN1-1 ,+  (H2**(CK+l ,)-l .) /(R2-1 ,) ) 

***  CALCULATE  radial  space  STEPS  R(J) 

DO  185  J = 2 ♦ N 4 

185  R(J)=DR*(J-1) 

X 1=K2*DR 

DO  108  JsNU»N 
RCJ+l ) =R ( J)  + X 1 

186  XlsR2*Xl 

***  CALCULATE  COEFFICIENTS  0 OF  FINITE  DIFFERENCE  EQNS. 

X1=2./(DK+DK) 

DU  187  J=2.N1 

b(J* l)s»25*(2#J-3)*Xi/(J-l) 

B( Ji 2)aXl 

167  BC J*3)sXl -PCJ,  1 ) 

X2  = 0R 
X 1=R2*DP 
DO  188  JsNU,N 

n f T ^Xr-1  d k V 4 vV  V D \ 

in  Jtcj-ci/ J 

BC  J,  n*C2./XP-J  ./K(  J)  )/(Xl  + X2) 

BCJ*3)b&(J,2)-R(J»  l) 

X2=R?*X2 
188  X 1 = R2* X 1 
B C 1 » 1 ) =0  . 

BC 1 *2)s2./(DR*0K) 

8(1,3)50(1,2) 

DO  189  J=1,N 
IFCH(J) .LT.RVL) JVL=J 
169  CONTINUE 

. ***  CALCULATE  AXIAL  SPACE  STFPS  Z ( I ) 

XI  = 2, 

IF  1=4 

IFCILF.NS.EO.O)  IP1  = M2-Ml+? 

CKSM2-M1+3-IP1 
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I 

I 

I 

1 

1 


i 


mm 


?** 


■»>l 


I 

I 

1 


58.  IF  ( lLENS.r:0.0  3CK  = l'?-Ml  + l 

59.  190  CP  = ?.*ZD(4)/DZ+1.-U1**CCK-1,)-1.)/£X1-1.) 

50.  IFCH-£WS.tO.O)CP  = Zn(7)/,DZ-?.*Ml  + 1.9 

61.  R1=EXP(AIQG(CP*X!-CP+1 .3 /CK3 

62.  IFCR1/X1.RT. .999999. AND. R 1 /X  1 . LT  . 1 . 0 0 0 0 0 1 ) C-0  TO  193 

63.  X1  = R1 

64.  WHITE(6.19nCP.CK,M2,Ml,Z0(U)»Z0(7)»DZ.X3 

68.  191  FOSMAT(lH0,2ElO.5»217»ilPlO.53 

66.  GO  TO  190 

67.  193  CK  = M2-M  + l 

68.  ZM=(  (Ri**CK-l  .)  / (*1-1.  UM1-1  ,)*OZ 

69.  WHITEC6.1993Rl.ZM 

70  . 194  FORMATflH  . 3Hft l = , F 6 . 4 . 2X . 3HZM= . F8 . 4 3 

71.  X1=DZ 

72.  X2=X1 

73.  Du  19S  1 = 2. M2 

74.  Z(M2+I3=ZM+X2 

75.  Z(M2+2-l3=7M-XP 

76.  IFCI.GT.MDXlsRl'fXl 

77.  195  X2=X2+X1 

78.  zcn»o. 

79.  Z(M2+n=Zw 

80.  Z(M+n=2.»ZM 

fii.  xi  = (zciPi-n+zapn)/2. 

82.  DO  196  1 = 1, m3 

83.  i96  zcn  = zf n-xi 

84.  L 3= I P 1 

85.  DU  200  L s 1 ♦ 6 

i 6.  L 1 = 0 

87.  DO  1 9 7 I = I P 1 » M 3 

88.  IF(ZCI3,LT. Z0(L+1))L3=T 

89.  IF(Z(n.LT.ZDCL).OR,ZCI).GE.7DCL+n3GO  TO  197 

90.  L 2=  I 

91.  L 1 s L 1 1 1 

92.  197  CONTINUE 

93.  IF  (LI  .FU.cn  I X C L ) = L 3 

94.  IFCLi  .FC>.03LX(L)=L3 

95.  IF  f L 1 . 0 T .0)  IX  C l.  3 = L 2 1 1 - LI 

96.  IFCLI .GT.0)LX(L)=L2 

97.  200  CONTINUE 

98.  I P2= I X ( 2 ) 

99.  I P 3 £ I X '33 

100  . IRUsIX  i* a 5 

101.  I F 5= I X (5) 

102.  IP6=IX(63 

103.  LP1=LXC1) 

104.  LP2=LXC2) 

105.  LP3=LX(33 

106.  LP4=LX(4) 

107.  LP5=LX(5) 

108.  LP6=M3 

109.  ***  SET  CONDUCTIVITY  COn  AND  HF AT  CAPACITY  VSH  FOR  VARIOUS  EYE  MEdVA 

110.  DO  203  1 = 1 • LP  1 

111.  CON(I3=CONXC13 

112.  203  VSHCI3=VSHX( 1 3 

113.  DO  204  I=IP2*IP2 

114.  CUNCI3=C0NXC?)  L24 


GRID (CORNEAL) 


115.  204  VSHC I)=VSHX(2) 

]'  116.  DO  2 0 5 I = IP3«LP3 

117.  CQN(  1 )scOimX(3) 

116.  205  V3HI  i)BVSHX(3) 

J119.  DO  206  I=IP4»LP4 

120.  CON(I)sCONX(«) 

" 12  1 . 206  VSH(I)sVSHX(4) 

122.  DO  207  i=lP5fLP5 

123.  C0N(n=cnNX(5) 

124.  207  VSH(I)=VSHX(5) 

125.  DO  208  I=IPbfM3 

1126.  CON  Cl)  t:CONX  (6) 

127.  ?08  VSH(l)=vSHX(fe) 

128,  ***  CAl.CUL.ATf  COEFFICIENTS  A OF  FINITE  DIFFE^ENCF  FQNS » 

"r  129,  DO  210  I = IP1  • M 

\ 130.  Xi  = ZCI  + l)-7(I-n 

131.  x2s(coN(i-n-coN(i+n)/txi*xn 

* 132.  X3=2.¥CUN( n /XI 

133.  A(I»l)BX2+X3/(Z(T)-Z(I-in 

— 134.  IF (I, £0.1  PI) ACT* 1)50. 

135.  ACI»3)b-X2+x3/CZ(I+1)-Z(I)) 

r 136.  210  A(I.2)sA(M)tMh3) 

« 137.  RETURN 

138.  END 
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SUBROUTINE  IMAGE (CORNEAL) 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 


10. 

11. 

12. 

200 

13. 

14. 

15. 

201 

16. 

17. 

202 

18. 

19. 

203 

20. 

21  . 

22. 

23. 

* * * 

24. 

25 . 

26. 

205 

27. 

,26. 

206 

29. 

30. 

31. 

32. 

207 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

208 

40. 

41. 

42. 

43. 

4 4. 

45  v. 

210 

4 6. 

47. 

as. 

49. 

212 

50. 

51. 

213 

52. 

b 3 • 

*** 

54. 

214 

55. 

56. 

216 

57. 

SUBROUTINE  II- AGE 

COMMON  A C 2 3 ♦ 3 ) « A B S ( 6 1 • A p » B ( 1 1 *3)  * C,  0 N ( ? 3 ) *C0NV(fe)  .CUT  *DIM*D PULSE* 
lDK*DT»nTX*DZ*HR(in  » IG»IHT.ILFNS.IPHPF»IPl*IP2*IP3*IPfl« IB5»IP6* 
2JVLtLIM»LPl *LP?tLP3tLP«»LP5tLP8»LPX«LTMAX»LZ»K*KT*MtMl*M?»M3*N* 
3N1  »N3*l«a.POX.PTlMetQPt  R(  l 15  ,REF(7J  .RIM.RN,RVL.S(P3*  1 1)  .TH(fc)  * 

4TS  C2200)  *V(23*  11)  t VCf  23*  11  *60)  tVSH(23)  »VShX(h)  *XC|  WAVfcLf  Xpr>(#»0)  » 

5XTC60). ZC23) • ZCON(?3*li),ZD(8),2M 
DIMENSION  FA(501) »FPf50n  *FXC501)»PXt30) .RX(XO) 

REAL  NO 
Ll  = 500 

DO  200  Jsl,N3 
HR( J)sO. 

LIISLI 

DU  201  Lsl, LI 
FXCDsO. 

R£AD(5*202) PUPIL 
FGRMAK10E8.3) 

WRI rE(6*203)PUPlL 
FORMAT  Cl  HO *6HPUPIL**F7, 31 
RINTsPUPlL/ (LI-1) 

IFtlPROF.EO.I )G0  TO  214 
IF(IP«OK.eP,0)GO  TO  2i<5 

INTERPOLATE  IRREGULAR  LASER  PR0FILECSYMMETR1C  T N R)  AT  INTFRVals 
OF  PINT  STARTING  aT  R = 0 

REadCS* £051 LR 
FORMAT (17) 

READ  (5*2061 (RX(L1 tL=lfLR) 

FORMAT (10E7. 3) 

READC5.206) (PX(L) *L=1  *L«1 
XlsPXt 1 ) 

DU  207  L=1,LR 
PX(L)=PX(L)/X1 
X5  = Q . 

DO  208  L=2*LR 

X2a(PXfL)-PX(L-l))/(PX(L)-RX(L-D) 

XlsPX(l.)-X?ARX(L) 

X3sXl*(RX(L)*«XlL)-KX(L-l)*RX(l-l))y2. 

X«*X2*  (HXCL)*RXCL)*RX  (L)-KX(L-1)*RX(L-1  )*RX  Cl.-l)  1 / 3, 
X5=X5+6,2832*(X3+X4) 

QP  = POX*.23R06*Ci.-REF(in/X5  t 

iF(RXtLR)  ,LT.  PUPIL)  LI  I*RX(LR)/RIN'T+1 
L2«2  * • 

X 1 = 0. 

DO  213  L = 1 ♦ L 1 1 
IF(RX(L2).GT.X1)G0  TO  212 
L2=L2tl 

IF(L2.LE.LR)G0  TO  210 
GU  TO  213 

X2stXl-RX(L2-l))/(RX(L2)-«X(L2-l)) 

FX(L)=PX(L2-1 )+X2+CPX(L2)-PX(L2-l) ) 

X1=X1+RIN1 
GO  TO  22? 

CALCULATE  GAUSSIAN  LASER  PROFILE  AT  FA CH  VALUE  OF  R(J) 
SlGMAsRIM+SURT (-2, /ALOG(CUT) ) 

WRITE(8t216)S1GMA,PIM 

FORMAT!  1H0.8HSIGMAs,F.8.3»E»X.4HR1M=,E6.3) 

DU  217  J = 1 • N 

L26 


IRA 


19  A* 
IGA*” 
1 9**f 


IMAGE (CORNEAL) 


5b.  X3=2.+R£  J)  *R  ( J W (SIGMA*  STGM,i) 

54.  IFfX3.Gr.60.)bO  TU  2)7 

feU.  HR ( J ) =E  X P ( - X 3 ) 

fel.  217  CONTINUE 

fe2 . QP=2.*PGX*.23<»0o*Cl.-RFFn))/{3.UMb*STGMA*STG"*} 

fei.  Gu  TO  250 

64.  ***  SPECIFY  UN  T F OtvM  LASER  PROFILE  FROM  K f 1 5 TO  RfLTfO 

65.  ?19  DO  220  J=1*LIK 

fefe • 22 0 hk  £ J ) s 1 . 

hi,  QPrPOX*. 23908*  Cl.-RtFn)W(3.161fe¥PIN'*PlM) 

68.  GO  TO  25  0 

69.  ***  CALCULATE  TOTAL  AREA  FA(L)  AND  PORTION  OF  LASERS  POwFR  BFTW£Fn  R = 0 

70.  *¥*  AND  CL-.5)AKInT 

71.  222  FPC  l)s3.1«lfc*FX( 1 ) *R TNT*P I NT /4 . 

72.  FACn=3.t41o*«lNT  + PlMr//l. 

73.  DU  22a  L = 2.L'TI 

7a.  X1bIL-.5)*»I^T 

7b.  X2=(L-1  .5)*RTr.T 

7b,  FR(L)aFPCL-l)+FA{Ll*3.iai6*CXl*Xl-X2*X?) 

7/.  224  FA(L)=FA(L"l)+3,1416*(Xl#Xl-X2*X?) 

7b.  *¥¥  CALCULATE  KORmalT  Z E 0 PROFILE  HP ( J ) . . . HPs 1 AT  pro 

79.  X 1 = 0 

80.  Xd=y^ 


81  . 

DO  225  jsl.N 

82. 

X3=K( JI/PINT+ .5000001 

83. 

IF  (X3.LT.  1 .1*5=1  . 000000  1 

ea . 

Lb“X3 

85. 

Ho. 

*8  7. 

IF  CL2.GL.LI1) GO  Tu  225 
X4SX3-I 2 

X5  = FP  C12)+X«*  (FP(L?+n-FP(L2) ) 

88  . 

Xb=FA£L2)+Xa*(FA(L2+l)-FA(L2)) 

89. 

HR ( J)  = CXb-X 1 ) / (X6-X2) 

9 0 . 

X 1 sX5 

91  . 

X2  = Xfe 

42. 

225 

continue 

93. 

X 1 =hR ( 1 ) 

44  . 

DU  227  Jsl.N 

95. 

227 

HR(J)=Hk£J)/X1 

«fe. 

250 

DU  29  7 1 s I P 1 * M 

97. 

DU  297  Jsl.N 

9b. 

297 

ZCONC I . J)s0. 

49. 

READ(5.202)Zf',FC.PC.NC 

100. 

Zl=NC*ZO*FC/(Nr*ZU-FC) 

101  . 

DU  301  I=IP1*M 

102. 

X0=i.-7CI)/Z) 

103. 

zcoMd.nci  ,/(xo*xoj 

104. 

1=2 

105. 

DU  301  J=2.N 

10c. 

X 1 3 K f J ) / X o 

107. 

298 

IF(xl.Lr.R(L))OU  [0  299 

108. 

L = L + 1 

109. 

IKCL.LF.NJGO  T n 298 

1 10. 

GU  TO  301 

1 9=5 


111.  299  X2=  (X  1-R  ( l -U  ) / tR  IL) -K  ( L- H ) 

112.  ZCON(I»J)=0. 

113.  TFCHW(J) ,LT0 1 .F-20) GU  TO  301 

114.  ZCON(I.J)s(r>RU-n  + X?*(HRCLJ-HP(l-)))j'/CMR(vn*XO*XO) 

115.  30  i CUNlINIJt 

116.  RLTURin 


L27 


SUBROUTINE  HTXDEP (CORNEAL) 


1 . SUBROU  . IN£  HTXOEP 

2.  ***  HTXOEP  COMPUTES  RATE  OF  HEAT  DFPOSITON  AT  VARIOUS  POINTS  I»J 

3.  COMMON  AC23.3) . ABSCb) , AP.BC 1 1 «3) t C0NC23) .C0NXC6) .CUT*DIM.DPULSE 

4.  lDR.0T»DTX*DZ»HRCintIGtIHT*ILENS.IPR0F*IPl*IP2*IP3*lPafIP5tIP6* 

5.  2JVL«LIM»LP1*LP2H.P3»1.P4,|.  PStLP#>«LPX*LTMAX«l.Z»K*KTtMfMl*M?>M3*N* 

6.  3NlfN3tNqtPOX»PTlME,QP,R£il),PEF(73.RlM«RN#RVL.SCP3»ll)*TH(#,J. 

7.  4TS(2?00)iV(23.11)»VC(23*lt*60)*VSHf23)*VSHX(6)tXC»WAVElfXPP(fc01 

8.  SXT(bO) .2C23) .ZC0N(23t 11) .20(8) .ZH 

9.  DIMENSION  AB<?3»3)»ABKC23*fe)«II(233«IZ(23)»KFFL(M*ZH(<?3) 

10.  ifciht.eo.ojretuhn 

11.  IFCOP.LT. 1 .E-25IG0  TO  340 

12.  IF(  IHT.EO.nRETURN 

13.  APsl, 

14.  LZ0=LZ-1 

15.  LZ 1 =LZ+ 1 

lb.  RKF(LZl)sO. 

17.  DO  290  1= 1 r M 

16.  IICI)sO 

19.  iZCDsft 

20.  zHcn  = czcn+z(i+m/2. 

21  . DO  269  List  *3 

22.  289  AbCI.LnsO. 

23.  DO  2«0  L 1=1 «L2 

24.  290  A8RCI»H)  = 0. 

25.  00  292  L 1 = 1 ♦ LZ 

26.  292  REFLCLDsO. 

27.  hRITF(6,?93) CZHC I) . 1 = 1 «M) 

28.  293  F0RMAT(1H0.3HZH=/CU*5E6.3)) 

*2  9.  Ll  = 2 

30.  DO  306  laJPl.M 

31.295  IF(ZH(I-1)*I.T.Z0CL1))G0  TO  2«6 

32.  L 1 BL 1 + 1 

33.  GO  TO  295 

34.296  IFCZH(T) .GF.ZD(Ll) )G0  TO  299 

35.  ***  NO  ZD  heTkFEN  ZHCI-1T  AND  ZHCD 

36.  A6ci.n  = AascLi-n*(zHcn-zH(i-n) 

37.  IICDsl 

38.  IZCDsLl 

39.  IF CL1  ,GT .LZ) GU  TO  306 

40.  DU  297  LP=Ll»LZ 

4 1 , 297  ABR  Cl » L2T  = ABC  1 . 1) 

42.  GO  TO  30b 

43.299  IF  CZHCI)  .GF.ZDCL1+ 1)  ) GO  TO  3*^3 

4«,  * + * ONLY  ZDCL1)  BETWEEN  Z H C I - 1 5 AND  ZHCI3 

45,  AB(I*n  = AflSCLl-n*(Z0£Ln-7H(I-l)  ) 

46,  AB(I.2)=AbSCLn*CZHCI)-ZDCLl)) 

47,  ABR(I.LlT  = ABCl»n 

46,  iici:>=? 

49,  IZ(1)=L1 

50,  L3SL1+1 

51,  IF CL3.GT  .LZ3G0  TO  306 

52,  DO  300  L2=L3«LZ 

53, ;  300  AbRC  1 .1  2)sA6(  I ♦ D + ABC I *2T 

54,  GO  TO  306 

95,  * * * ZDCL1)  AND  ZDCLl+13  BETwEEN  ZHCI-13  AMD  Z H ( I ) 

56,  303  ABC  I « l)=AdSCLl-n*CZD(Ll)-ZH(I-n  ) 

57,  AB£l»2)aABSCLn*(ZDCLl  + n-ZD(Ll)) 


i 


58. 

f 

59. 

1 

60, 

61. 

1 

62, 

1 

63, 

64, 

65, 

1 

6 6 i 

304 

67, 

306 

66, 

T 

1 

69, 

J 

«r- 

70, 

71. 

— 

72. 

73, 

74, 

314 

75, 

*** 

76. 

77, 

78, 

79. 

* A 

80. 

81. 

* 

82. 

83. 

• f 

84. 

85. 

,86. 

— ' 

87  . 

8 ft  . 

T * 

89. 

90. 

315 

91  . 

,* 

92. 

93. 

94. 

317 

;'b. 

*¥  * 

i 

96. 

# + * 

X 

97. 

98. 

*** 

99. 

1 

1 

1 

1 


100. 

101  . 

102. 

103.  322 

104. 

105. 

106.  324 

107. 

106. 

109. 

110.  325 

111. ' 

112, 

113. 

1 1 4 j 


HTXDEP (CORNEAL) 


ABC  I #3)sAbS(Ll  + l)*  (ZHf  n-ZOCLl  + n ) 

AHRCIfll 1) 

ABR(I.Ll  + nsAB(I.n  + ABCl.2) 

1 1 C 1 3 — 3 
IZCI5— LI 
L3  = L 1 + ? 

IF  CL3.GT .LZ1 GO  TO  306 
DO  30a  L2=L3fLZ 

ABR( ItL21a*6( I * 1)  + A8f I*2)+ABCI »3) 

CONTINUE 
DO  314  I s I P 1 ♦ M 

IFtABCIf  n.GT.lO.J  A6CI*n  = 10. 

IF(AB(I»2).GT.10.)A8fI»2T=l0. 

IF(AB(I»3).GT.10.)Aaci»3)»10. 

DO  314  L52*L2 

IFCA8H(I,LT.GT.10.5ABf?Ci,Ll  = 10. 

CONTINUE 

DEPOSITION  BY  INCOMING  BFAM 
X2  = GP 
L 1-2 

DO  317  I=IP1»N 
12=11(1) 

X3  = X2 

X2=X2*ExP(-ABCI»  1)  ) 

X a = 0 . 

IFdZ.FQ.DGCi  TO  315 
13*17  C I ) 

X4=X2*REFC13) 

X 2 = X 2 * C 1 ,-REF  CL3) ) * E X P C-A&C 1 • 25 ) 

It- (L2.EU.21  50  TO  315 
X4=X4+X2*REF(L3+1) 

X 2s X 2* Cl. -REF (l 3+1) )*EXP(-AB(I*3)) 

IFCX2.LT.  1.E-10JX2S0. 

DO  317  Jsl . JVL 

SCIrJ)s{y3-x?-X4)*HR(J)»ZCON(I»J)/CZHCn-2HCT-m 

IF  CS  C I . J)  ,LT. 1 .E-fe/DPUl$E)SCI» J)  = 0. 

CONTINUE 

C.'LCULATION  OF  REFLECTED  INTENSITIES  BY  VARIOUS  TNTeRFACFS  STARTING 
WITH  FIRST  INTERNAL  INTERFACE 
X2  = GP 

00  322  L 1 * t « LZ 0 
X3aABSCLl)»TH(Ll) 

IF  CX3.GT  . i n , ) x‘3*  1 0 . 

X2*X2*EXP(-X3) 

REFLCLl  + l)*X2»PfcK(Lltn 
X2sX2*(1.-peFCL1+1)) 

DO  327  L 1 *2  » L Z 

1 = IPi 

IFCZH(I) .GT.7DCL1) )GO  To  325 
1 = 1 + 1 

IF  (I. LE. Ml  GO  TO  324 
GO  TO  327 
X2  = REFL (L  1 5 
DO  326  L3=IP1*  I 
Xi=X2 

L4B1+IP1-L3 

X2=X?*EXP(-ABR(L4»L1)1 
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HTXDEP (CORNEAL) 


I 

I11S*  DO  326  J=i.JVL 

116.  S(L«f  J)  = S(  L«*  J)  + CX3-X2)*HK(  J)*7CONfL**  J)  /£ZHa«)-ZH(Lfl-lJ) 

117.  IKCS(L«»J)  .LT.l.E-<*/OPUL$E)S(L«»J)  = 0. 

1 18.-  326  CONTINUE 

1119.  327  CONTINUE 
12  0*  IHTal 

121.  RETURN 

J122.  ***  NO  HEAT  DEPOSITION? BEAM  OFF 

123.  340  DO  342  1*1  »M3 

124.  DO  342  J=i»N3 

12S.  342  SCI»J)«0. 

1126.  IHTsO 

127.  RETURN 

128.  END 

1 


i 


1 

1 

l 

I 

I 

I 
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' SUBROUTINE  MXGRAN (CORNEAL) 


1.  SUBROUTINE  MXGPAN 

2,  ***  THIS  ROUTINE  COMPUTES  CONSEQUENCE  OF  GRANULAR  AgSOPPlION  ON  TgMPFRATlJRF 
J.  ***  VARIATIONS  IN  PL  (USED  ONLY  ONCE) 

«,  COMMON  A£23.3) ♦ AriStfe) , AP.PC 1 1 ,3} .CDNC23) -CONV rM . CUT . DIM . DPULS* i 

5.  IDH.DT.nTX.DZ.HPtlD.IG.IHT.ILENS.IPRnF.  IP  1 * ]p,j.  : °3 . 1®U  . I °5 . 1 Pfe . 

6.  2JVL.LIM.LPl.LP2.LP3iLPa,LPe;.LPA,LPY.LTMAX.LZ.K.KT.M,Mi,M2.M3tN. 

7.  3N1  .N3,  N4.Pnx.PTlM(£.QPt«(l  1)  . PEFC7)  .PIM.KN,RVL.S(?3. 1 1)  . 

6.  4TSC22U0) .V(23. 1 1) . VC(23. l 1.60) . VSH(23) » VShV(A) .XC»WAVEL*XPn(60) » 

9.  SXTtoO) .Z (23) •ZCONC23.il). ZD(8)«2M 

10.  00  495  11  = 1 » K T 

11.  495  XP0(Ll)sl. 

12.  RETURN 

15.  END 
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APPENDIX  M 


USER  MANUAL  FOR  PREPARING  2-D  AND  3-D  ILLUSTRATIONS 
OF  TEMPERATURE  RISE  PROFILES 


1.  INTRODUCTION 


The  computer  program  documented  herein  was  developed  by  IIT 
Research  Institute  to  display  two  and  three  dimensional  temperature 
rise  profile  surf aces  as  a function  of  radial  and  axial  coodinates. 

The  methodology  chosen  was  to  start  with  temperature  data  for 
'selected  points  from  either  the  Corneal  or  Retinal  Models.  This 
information  was  then  used  to  build  a general  three  dimensional 
point  array  of  plotting  information.  Finally,  a generalized  pack- 
age is  used  to  yield  any  desired  view  of  this  three  dimensional 
data.  This  documentation  pertains  mainly  to  the  use  of  this  sys- 
tem and  in  less  detail,  to  the  documentation  of  the  system  itself. 

2.  EXAMPLE  OF  THE  USE  OF  THE  SYSTEM 

A sample  input  deck  to  this  system  is  shown  in  Table  1 with 
each  data  card  preceded  by  annotated  comments.  The  deck  shown 
consists  of  two  separate  decks.  Cards  1 through  14  contain  infor- 
mation defining  the  data  supplied  by  the  Corneal  or  Retinal  Models. 
Cards  15  through  35  contain  individual  plot  commands.  In  partic- 
ular, cards  numbered  23,  25,  31  and  34  contain  specific  commands 
to  plot  while  other  cards  provide  auxiliary  information  concerning 
the  screen  size  and  desired  view  of  the  object.  The  last  card 
(card  35)  is  necessary  to  properly  close  the  plot  file.  The  four 
plots  generated  by  these  commands  are  shown  in  Figs.  M-l  through  M-4. 

3.  SYSTEM  DESCRIPTION 

The  entire  program  consists  of  approximately  1500  cards  of 
FORTRAN  source  divided  into  a main  program  and  twelve  subroutines. 

It  is  assumed  that  this  package  is  also  supported  by  the  subset 
of  CALCOMP  software  consisting  of  the  subroutines  PLOTS,  PLOT, 

NUMBER  and  SYMBOL.  The  FORTRAN  is  ANSI  FORTRAN,  and  should  be 
directly  portable  between  computers.  The  package  was  developed 
on  a U^JIVAC  1108  and  tested  on  an  IBM  370  computer. 
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WITH  HIDDEN  LINES 


IPERATURE  PROFILES  (X,Z)  IN  RADIAL  DIRECTION 


The  processing  flow  and  subroutine  structure  of  the  system 
are  shown  in  Fig.  M-5.  The  processing  is  divided  into  three 
parts.  The  first  part  of  the  main  program  (called  COLUMN)  reads 
temperature  data  generated  by  the  Corneal  or  Retinal  Models  and 
prints  a summary  of  this  data.  The  second  part  of  the  program 
builds  a consolidated  array  of  three-dimensional  point  data. 

This  array  is  arranged  in  the  specific  format  for  subsequent 
plotting  and  contains  not  only  the  criss-cross  gridwork  of  sci- 
entific data,  but  all  axial  and  labelling  data  as  well.  The  sub- 
routine P0L3UR  and  its  subsidiaries  PCROSS  and  EQUIV  are  used  to 
build  the  mesh  points  into  a criss-cross  pattern  of  plotting 
strokes  with  embedded  normals  to  be  used  in  hidden  line  views. 

The  routines  SYMCON  (for  symbol  control)  and  AXES  (for  generated 
3D  axial  information)  are  used  to  generate  axial  stroke  lines  and 
symbol  and  numeric  size  and  positioning  information. 

At  this  point  the  main  program  relinquishes  control  to 
the  subroutine  ’ READ IN 1 . This  subroutine  is  structured  to 
read  general  plot  information  and  to  plot  current  views  of  the 
three-dimensional  object.  The  READ IN  routine  can  be  used  to 
generate  as  many  plots  of  the  data  as  desired.  In  the  particular 
example  documented  in  Section  2,  two  general  perspective 
space-views  and  two  isometric  plane  views  were  all  obtained 
from  the  same  user  input  deck. 

The  Subroutine  ' READ IN ' calls  the  principal  plotting 
routine  - namely  'SSPLOT'.  The  'SSPLOT'  routine  in  turn  calls 
CALCOMP  software  and  four  other  subroutines  - namely,  the 
'WINDOW'  routine  to  zoom  in  on  a localized  area  of  a plot,  the 
'MMULT*  routine  to  multiply  4x4  matrices  to  produce  a consoli- 
dated matrix  containing  all  the  scaling  and  positioning  data 
relating  to  the  current  view  of  the  object;  the  'PERSFT, 
routine  to  generate  a 4x4  matrix  in  response  to  a user's 
request  for  translation,  rotation  or  sca'liiig  and  a dummy 
'OFFSET'  routine.  The  'OFFSET'  routine  has  no  function  in 
the  CALCOMP  version  of  this  system.  However,  at  IITRI  a real 
'OFFSET'  routine,  is  used  to  control  a Tektronix  Graphics 
terminal,  in  a CALCOMP  interface  mode. 


MU 


PLOT  Commands 
Card  Input 


SYSTEM  PROCESSING  STRUCTURE 


As  shown  in  Fig.  M-5  all  phases  of  this  program  yield  summary 
print  data  to  aid  the  user  in  verifying  not  only  his  input,  but 
also  the  results  of  intermediate  processing.  A listing  of  the 
entire  code  is  at  the  rear  of  this  appendix. 

4.  DETAILED  USER  INPUT  TO  THE  PLOT  PROGRAM 

The  user's  interface  with  the  plotting  portion  of  this 
program  is  controlled  by  the  subroutine  'READ IN'.  This  program 
is  designed  to  read  and  list  cards  under  a uniform  format  and 
to  immediately  execute  the  user's  command  indicated.  The 
uniform  format  for  all  cards  is  shown  below. 


Columns 


Columns  Columns 


Columns  Columns 


1-4 


11  - 20  21  - 30 


Key  word  First  Second 

left- justified  Parameter  Parameter 


31  - 40  41  - 50 

etc . 

Third  Fourth 

Parameter  Parameter 


A keyword  in  alphanumeric  format  is  entered  in  Columns  1-4. 
Parameters  - as  applicable  - are  entered  as  floating  point 
numbers  in  fields  10  characters  wide  starting  with  column  11. 

Of  course,  a blank  entry  is  always  read  as  a floating  number 
with  value  zero.  A user's  card  is  always  printed  as  read  and 
if  the  keyword  does  not  match  the  dictionary  of  keywords  a 
clear  diagnostic  is  produced  and  processing  terminates. 

Certain  conventions  should  be  described  relative  to  the 
philosophy  for  viewing  the  object.  A single  matrix  stores  all 
of  the  user's  consolidated  requests  for  rotations , scaling  and 
translation  of  the  object.  At  program  start  this  matrix, 
without  any  other  information,  would  plot  an  isometric  x-y  view 
of  the  object  where  the  user's  numbers  (x,  y and  z)  are  all 
interpreted  as  real,  inches.  Of  course,  if  x and  y coordinates 
are  in  hundreths  of  a centimeter  and  temperature  rise  is  in  full 
degrees,  such  a view,  if  there  is  space  on  the  plotter,  would 
be  little,  more  than  a vertical  line  because  of  disparity  between 
coordinate  magnitudes.  Accordingly,  the  data  can  be  scaled 
to  fill  a desired  viewing  area  and  to  allow  fer  proportional 


Mil 


scaling  of  axes.  Rotated  spatial  views  of  the  object  are 
obtained  by  successive  simple  commands  to  roll,  pitch  or  yaw 
the  object  from  the  initial  viewing  position.  These  commands 
are  usually  employed  only  after  the  'BOX'  command  which  centers 
the  object  on  the  origin  and  allows  more  reasonable  application 
of  successive  rotational  commands. 

The  viewer  considers  that  the  permanent  x-axis  lies  to  a 
horizontal  right  direction,  the  y-axis  is  vertical  and  up  and 
the  permanent  z-axis  is  coming  out  toward  him.  If  the  viewer 
enters  a command  to  roll  45°,  the  object  will  perform  a 45° 
movement  clockwise  in  the  viewing  plane.  If  he  commands  it  to 
pitch  45°  the  object  will  rotate  around  the  x-axis  so  that  the 
top  part  of  the  screen  will  come  toward  him.  If  the  viewer 
commands  the  object  to  yaw  45°  the  object  will  rotate  around 
the  permanent  y-axis  so  that  right  most  portion  of  the  screen 
will  move  away  from  him.  All  of  these  commands  are  based  on  a 
right  hand  rule  to  determine  orientation.  Good  three-dimensional 
views  are  usually  built-up  by  a succession  of  three-rotational 
commands  (such  as  in  example  2) . 

The  above  gives  some  insight  into  the  positioning  philosophy 
of  this  model.  What  follows  is  a detailed  description  of  each 
input  command  for  the  plotting  system. 

Keyword 

1 11  21  31  41  51 

Pax  y z w 

The  symbol  ' P ' denotes  that  a point  or  vector  is  being  added  to 
the  data  base  of  point  P,  Here  P consists  of  a two  digit  real 
number  of  the  form  AB . The  tens  digit  'A'  defines  the  mode  in 
which  the  vector  stroke  to  the  current  point  should  be  plotted 
as  follows : 

A « o maintain  current  mode 

A = 1 plot  solid  lines  through  succeeding  points 

A = 2 plot  dashed  lines  through  succeeding  points 

A - 3 plot  only  the  points  themselves 

A = 4 plot  a string  of  dashed  points  through  succeeding  points 

In  case  A = 5,  the  entry  is  not  a point,  but  a vector  attached  ti- 
the previous  point  (this  is  used  in  hidden  line  views) . 

Ml  2 


The  units  digit  B carries  the  following  interpretations: 

B = 0 plot  no  special  symbol  at  the  point 

B = 1 plot  a Calconip  centered  symbol  at  the  point  - 
the  value  of  the  symbol  is  held  in  w. 

B = 2 plot  a floating  number  at  the  point  - 
the  value  of  the  number  is  in  w. 

B = 3 plot  an  alphanumeric  label  at  the  point.  The 
label  is  held  in  the  word  w. 

(note:  since  the  card  parameters  are  all  read 

under  a floating  point  format,  this  option  cannot 
be  obtained  through  an  input  card) . 

The  second,  third  and  fourth  parameters  are  x,  y,  z coordinates 

of  a point  and  the  w-coordinate  carries  the  meaning  as  indicated 

in  the  explanation  of  the  '3'  digit  value. 

In  the  present  application  of  the  model,  this  point  array 

is  built-up  automatically  in  the  COLUMN  program  and  the  user 

is  not  required  to  inpat  data  under  this  format. 

UNIT 

The  1 IN IT ' command  initializes  all  plot  data  including 
zeroing  out  all  point  arrays) . It  also  initializes  the  plot 
buffer.  Plotting  cannot  occur  until  the  INIT  routine  is  called, 
either  directly  or  indirectly.  (Please  note  that  in  the 
'COLUMN1  model  this  command  is  called  automatically  at  the 
beginning  of  the  run) . 

ROLL  A 

The  'ROLL'  command  indicates  that  the  object  should  move 
counterclockwise  in  the  viewing  plane  by  an  angle  A. 

PITC  A 

The  pitch  command  indicates  that  the  object  should 
'pitch'  by  A degrees  around  the  horizontal  axis 

YAW  A ^ 

This  command  indicates  that  the  object  should  'yaw'  by 
A degrees  (i.e.,  rotate  around  the  fixed  y-axis). 


Ml  3 


SCAL 


A 


B 


C 


This  command  rescales  the  current  object.  If  the 
factors  B and  C are  both  zero,  then  all  three  dimensions  are 
rescaled  uniformly  by  the  factor  A.  Otherwise,  the  x,  y,  and 
z coordinates  are  independently  scaled  by  the  factors  A,  B, 
and  C respectively. 

TRAN  ABC 

The  command  'TRAN'  effects  a translation  of  the  current 
object  position  through  a sector  (A,B,C).  It  should  be  noted 
that  all  of  the  previous  commands  are  cumulative  - that  is,  they 
operate  on  the  current  transformed  position  and  scale  of  the 
object. 

DIST  A B x y 

The  distance  command  adjusts  the  distance  of  the  observer 
from  the  object.  If  no  parameters  or  else  zero  parameters  are 
input,  the  projection  will  simply  be  parallel.  If  only  one 
non-zero  parameter  A is  input,  then  the  distance  of  the  observer 
from  the  origin  of  coordinates  and  of  the  projection  plane 
from  the  viewer  are  both  interpreted  as  A units.  Otherwise  A 
is  the  distance  of  the  viewer  from  the  origin  and  B is  the 
distance  of  the  paper  (on  which  the  object  is  projected)  from 
the  viewer.  Optionally  third  and  fourth  parameters  (x  and  y, 
may  be  added  to  allow  the  viewer  to  shift  his  viewing  position. 

a« 

REIN 

This  command,  mnemonic  for  re-initialize,  is  entered  to 
restart  the  transformation  matrix  from  the  position  of  an 
identity  transformation.  All  of  the  previously  built  up  results 
from  roll,  pitch,  yaw,  scale,  box  and  translation  commands 
are  lost. 


M14 


HIDE 


A 


The  'HIDE'  command  is  used  to  turn  the  hidden  line  calcula- 
tion on  or  off.  If  parameter  A is  zero*  the  hidden  line  calcula- 
tion is  turned  off.  If  A is  1.0,  hidden  lines  are  removed  and 
if  A is  2.0  hidden  lines  are  dashed.  The  hidden  line  calculation 
can  only  be  effected  where  normal  vectors  have  been  entered  and 
depends  simply  on  whether  the  normal  is  leaning  away  from  or 
toward  the  observer. 

SIGH  A 

The  SIGN  command  can  be  used  to  reverse  the  sense  of 
surface  normals  entered  in  the  data  base. 

WIND  A . B C D 

The  'WINDOW1  command  is  used  to  turn  the  window  option  on 
or  off  and  to  set  the  parameters  for  windowing.  A and  B are 
lower  left  hand  coordinates  of  the  windowed  area  and  C and  D 
are  width  and  height  of  the  window  area  in  terms  of  display 
coordinates . In  particular,  if  a SCREEN  option  is  in  effect, 
then  the  origin  of  coordinates  is  at  the  center  of  the  screen. 

The  Window  option  is  not  modal  - it  is  only  in  effect  for  the 
plot  command  immediately  following.  However,  it  can  be  reactivated 
by  entering  a 'WIND'  card  with  no  parameters.  In  this  case, 

'WINDOW'  will  be  switched  on  again  and  the  old  window  parameters 
will  be  used.  The  window  option  does  result  in  a permanent 
change  of  the  display  matrix  whenever  the  'Screen'  option  is 
in  effect.  In  this  case,  the  windowed  area  is  automatically 
blown  up  to  fill  the  Screen  area.  Otherwise  "Window"  merely 
acts  to  scissor  unwanted  parts  of  a plot. 

SCRN  ABODE 

The  'Screen'  command  sets  up  the  physical  size  of  the 
display  area  and  draws  a border  around  that  area  for  every  plot. 

The  screen  command  is  modal,  and  remains  in  effect  until  it  is 
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turned  off.  The  parameters  A and  B describe  t:hc  coordinates 
of  the  lower  left  corner  of  the  screen  and  C and  D describe 
the  width  and  height.  These  units  are  all  in  inches.  If  no 
window  command  is  in  effect,  then  the  screen  acts  as  an 
automatic  window  area  for  scissoring  the  plot  lines.  A 
fifth  parameter  E may  also  be  entered.  In  this  case,  the  user 
defines  a three- dimens iorial  geometric  box  so  that  the  object 
can  subsequently  be  rescaled  to  fill  that  box. 

BOX  ABC 

The  'BOX'  command  causes  the  object  to  fill  a fraction  of 
the  screen  area.  The  object  is  first  centered  on  its  center 
of  gravity  and  then  rescaled  from  there  to  fill  a proportion 
of  the  available  viewing  area.  In  case  only  one  parameter,  A, 
is  entered,  a single  scale  is  applied  to  all  three  axes.  If 
all  three  parameters  are  entered,  then  the  object  is  scaled 
to  fill  the  specified  x,  y,  z screen  width.  The  BOX 
command  is  used  frequently  to  attain  'full'  views  of  an  object 
after  rotation. 

FACT  A 

The  factor  command  simply  blows  up  or  shrinks  all  plotting 
by  the  factor  A. 

PLOT  ABC 

The  plot  command  causes  the  current  view  of  the  object  to 
be  actually  plotted.  Parameters  A and  B define  the  relative  x 
and  y-advance  on  the  Calcomp  for  a new  origin  of  coordinates. 

If  the  parameter  C is  entered  with  a negative  value  the  plot 
file  is  terminated.  The  plot  file  must  always  be  explicitly 
terminated . 

USER 

The  user  command  is  simply  desigiied  to  allow  a user  to 
branch  to  his  owr  input  routine.  Of  course  the  user  would  have 
to  supply  the  coding  to  effect  such  input.  In  its  present  form, 
the  'USER'  subroutine  is  a dummy  subroutine. 

ivi  1. 6 


PRIN 


This  is  presently  a dummy  statement  - eventually  it  may 
be  used  to  control  the  level  and  amount  of  print  information. 

END 

This  word  terminates  the  READIN  program  and  allows 
control  to  pass  to  a higher  level  routine. 

DUM 

This  word  requests  a summary  of  the  current  number  of 
points  in  the  data  base  and  of  the  x-y-z  range  of  the  data. 
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LISTING  OF  CODE  FOR  3D  PLOTS 


r 


I 


DATA ( 0 1 


I*  *♦» 


i 


SAMPLE  INPUT  DATA 


1 . 

3 

7 

1.0 

2. 

1.+3 

5.15+2 

2.5-3 

3. 

8 

12 

10  1 

6 

4 • 

11 

17 

5. 

.0000 

.0010 

.0020  ,0030 

. 0040 

.0078 

6. 

4.2287 

7, 

-.8862 

.8862  1 

.5110  1.7313 

1.8090 

1.8363 

8. 

1.8522  1.8649  1 

.8922  1.9699 

2.1902 

2,8150 

9, 

1.0*1 

10. 

4.8 

4 . 0 

3.3  2.8 

2.5 

1.6 

11. 

8.5 

7.3 

5.9  4.5 

3.4 

1.5 

12. 

16.7 

13.3 

8,9  5.6 

3.7 

1 .5 

13. 

8.4 

7.3 

5.8  4.4 

3.4 

1.5 

14. 

2.8 

2.7 

2.5  2,3 

2.0 

1.3 

15. 

[)UM 

16. 

DIST 

30. 

17, 

SCRN 

-4.1 

-3.1 

B. 

6. 

18, 

BOX 

1. 

1. 

1 . 

19. 

PI  TC 

-90. 

20. 

YAW 

“65  * 

21. 

P ! TC 

25. 

22. 

BOX 

• 9 

23. 

PLOT 

lo. 

6. 

24. 

HIDE 

2. 

25. 

PLOT 

10. 

6. 

26. 

HIDE 

27. 

PE  IN 

28. 

PI  TC 

1 

£) 

c 

• 

29. 

DIST 

30, 

BOX 

0.9 

0.9 

31. 

PLOT 

10. 

6 . 

32. 

YAW 

-90. 

33. 

BOX 

0.9 

0.9 

34. 

PLOT 

10. 

6. 

35. 

PLOT 

“1  . 

.0224  ,0783  .2918  1,1082 


6. 


» ■ 
\ ' 


i. 

r 


f i 


i 

i f 


! t 

I i 


1 

i 
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I 

1 

1 

i 

1 

1- 

V 

i 


t 

wr » 


l - 


r 

l 


T 

4. 


1 

I 

1 

I 


OLUMN 

1.1 

n I 

c • 

3.  i 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 
46  , 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 


i/ii L 


1 i. 

: P‘ 

i 5,  ; 

i 


! C 
C 
i C 

c 

c 

c 

1 c 
c 
c 

' c 
c 


OK  Z(I)  VALUES  FOR  PLOTTING. 


R ( J ) VALUES  FOR  PLOTTING. 


1 1 1 . 1 12  I VALUES  DESIGNATING  RANGE 

RANGEsZ(IIl)  TO  Z<II2> 

JJ1.JJ2  J VALUES  DESINATING  RANGE  OF 

RANGE=RUJ1)  TO  R(JJ2) 

R ( J ) ORDINATE, CM 

RGR  RANGE  OF  R VALUES  TO  BE  PLOTTED.CM 

RGV  RANGE  OF  TEMPERATURE  VALUES  TO  9E  PLOTTED, C 

RGZ  RANGE  OF  Z VALUES  TO  BE  PLOTTED.CM 

TIMEX  TIME  AT  WHICH  TEMPERATURE  RISE  VALUES  ARE  PLOTTED. SEC 

V(I.J)  temperature  RISE  AT  TIME  TIMEX(K).C 

ZU)  absissa.cm 

REAL  LA 

CCMMON/PLBAS1/  P (4.3001!  ..ICON  (3001)  .NUM.NUMAX 
C0MM0N/PLBAS2/AP(16) . A V (1 6 ) * CP ( 16) , DAT < 8 > 

DIMENSION  L A ( 4 ) 

DIMENSION  RR(IOO) ,PT(3) .RP(IOO) 

DIMENSION  R(li>  » V ( 23 » 1 1 ) * Z ( 23 ) 

DATA  L4/4HZ.CM.4HR. CM. 4H  T.C.4H«UN=/ 

DAT ( 1 ) = 1 « 0 

Call  ssplot 

READ (5.9) NRUN.NPULSE. REP IT 
FORMAT (2I7.F7. 1 ) 

READ (5. 10) DPULSE.WAVEL.RIM 
FORMAT (3E8.3) 

READ  (5.  H)  H1.II2.II3.JU1.JJ 2 

FORMAT (517) 

READ (5. 11 ) N3.M3 
READ (5.12)  < R ( J) .J  = 1.N3) 

FORMAT ( 10F7.4) 

READ (5.12) (2(1) .1=1. M3) 

READ (5.10) TIMEX 
00  15  1=111.112 
READ  (5. 14)  (VU.J)  ,J*JJ1.JJ2) 

FORMAT ( 10F7.2) 

CONTINUE 

START  UF  PROGRAM  FOR  PLOTTING 
RGRsR  ( JJ2)  **R  ( JJ1 ) 

RGZ=Z ( 1 12 ) -Z ( 1 1 1 5 
RGV=0. 

DO  20  1=111.112 
DO  20  J=JU1.JJ2 
I F ( V ( I » J ) ,GT.RGV)RGV  = V(l9j) 

CONTINUE 

WRITE (6.21 5 RGZ. RGR* RGV 

FORMAT ( IH0»4HRGZ=.E8.3.2X.4HRGR=.E8,3»2X»4HRGV=.E8.3) 

DO  23  1=111.112 

WRITE  (6.22)  I*  (VU.J)  .J=JJ1.JU2! 

2 FORMAT  UH0.2HI=»I2/(1X,10F7.2)  ! 

23  CONTINUE 
<mh>  pLOT  ROUTINE 
30  CONTINUE 


10 

11 


12 


4 

5 

6 
7 


14 

15 


20 


21 


C 

C- 

c 


SET  UP  FOR  PLOT 


IDIF=II2-II1+1 
JD IF=J J2- J J 1*1 
NM=1 
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j JcOLUMN  ( 0 ) 

* . 58.  ' 

DO  1 00  N=1,IDIF 

* S9» 

DO  100  M=1,JDIF 

• 60. 

I 1 -I I 1 ♦N-l 

61. 

J1=JJ1*M-1 

1 62. 

P(l»NM)sR(Jl) 

J.  — 63.  _ 

. P{2iNM)=Z<ll) 

64. 

P (3» NM>  =V ( 1 1 » J1 ) 

1 65. 

ICON(NM) =10 

, A -66 . 

IF(M.NE.l)  ICON (NM) =0 

67. 

NM  = NM*1 

68. 

100 

CONTINUE 

i 69. 

DO  200  M=1,JDIF 

* - 7 0 » 

DO  200  N=1 » IU IF 

71. 

J1=JJ] ♦ M-l 

V 72. 

ii*iii*n-i 

73. 

P(1»NM)=R(J1) 

74. 

P ( 2« NM) =Z  ( 1 1 ) 

75. 

P(3»NM)=V(I1*J1) 

76. 

ICON(NM)=10 

' 77. 

IF(N.NE.I)  I CON ( NM ) = 0 

78. 

NM=NM+ 1 

i j 79. 

200 

CONTINUE 

1 : so. 

NUMAX=3000 

81. 

NUM=NM-1 

j j 02.. 

CALL  POLSURUDIF.IDIF) 

j 83. 

DO  150  MM=1,JDIF 

04. 

M = JJ1  -fMM-l 

05. 

NUM=NUM+1 

i 86. 

P(1.NUM)=R(M) 

1 07.. 

P(2»NUM)=Z(II1) 

i ' 08. 

P(3*NUM)=0.0 

1 j »9. 

ICON(NUM)=10 

1 90. 

NUM=NUM>1 

i 1 91. 

Ptl»NUM)=R(M) 

1 92. 

P(2»NUM1*Z(II1) 

i -93. 

P(3»NUM)=V(IIIiM) 

‘ 94. 

ICON(NUM) =0 

95. 

150 

CONTINUE 

1 i 96« 

DO  160  MM=1,JDIF 

'■  97. 

M= JU 1 ♦ MM- 1 

| 98, 

NUM=NUM* 1 

' • y 99. 

PCliNUM)sR(M) 

; 1.  100. 

P(2»NUM)=Z(II2) 

i . 101. 

P(3.NUM5  =0.0 

7 ■»  1 0 2 9 

ICON (NUM) =10 

103. 

NUM=NUM+ 1 

104. 

P<  1 ,NUM) =R (M) 

105, 

P ( 2 =Z ( I I 2) 

’ . f 106. 

P(3,NUM)=V(II2»M) 

1 * 107, 

ICON (NUM) =0 

108. 

160 

CONTINUE 

T 109, 

DO  170  NN=1,I0IF 

i i 110. 

NUM=NUM+ 1 

...  111. 

N=NN+ I I 1-1 

- 112. 

P( 1»NUM)=R{ JJ2) 

,,  1 113. 

P(2»NUM) -Z (N) 

! * 114. 

P ( 3 »NUM) -0.0 

I ‘A  • 

! - I 

M2 1 

L ! L 

} 


J COLUMN  < 0 > 


_ 115. 

I CON ( NUM ) = 1 0 

I 11&. 

NUM=NUM*1 

* 117. 

P ( 1 *NUM1 =R ( JJ2) 

118. 

P (2.NUM) = Z (N) 

1 119. 

P (3.NUM) =V IN* JJ2) 

1 120. 

1CON(NUM)=0 

121  . 

170 

CONTINUE 

122. 

NUM=NUM*1 

* 123. 

P ( 1 » NUM  > =H (JJ2) 

"■  124. 

P (2, NUM) = Z (113) 

125. 

P (3. NUM) =V (II3.JJ2) 

126, 

P(4,NUM)=11. 

«-  127. 

ICON ( NUM) =31 

128. 

NUM=NUM*1 

r 129. 

P(1,NUM)=R(JJ1> 

' 130. 

P(2*NUM)=Z<II1>-RGZ«0.25 

131. 

P(3»NUM)=RGV*0.5 

.132. 

P(4,NUM)=LA(3) 

J.  133. 

ICON (NUM) =32 

•'  134. 

NUM=NUM*1 

135, 

P(ltNUrt)aR(JJ2)*RGH*0.1 

■'  136. 

P(2,NUM)=Z(IIl)4RGZtt0«5 

137, 

P( 3. NUM) =0.0 

..138, 

P ( 4 * NljM ) =L  A ( 1 ) 

r 139. 

ICON(NUM) =32 

i 140. 

NUMsNUM+1 

” 141. 

P(1.NUM)=R(JJ1)  ♦RGR**0.5 

142. 

P{2.NUM>=Z(II1)-RGZ*0,1 

j 143. 

P (3. NUM) =0.0 

*'  144, 

P (4.NUM) =LA (2) 

H5. 

ICON(NUM) =32 

V 146. 

CALL  SYMCON( . 07  * 4 , -1 . 1 » -1 . 

..  147. 

NUM=NUM*1 

148, 

P(1,NUM)=R(JJ2) 

- 149. 

P ( 2 i NUM ) =Z  ( 1 1 1 ) 

! 150. 

P(3»NUM)=0,0 

*'  151. 

P (4, NUM) =R ( JJ2) 

152. 

ICON(NUM) =33 

i 153. 

C 

« 154. 

RP ( 1 ) = JD I F 

155. 

DO  300  KK  = i ♦ Jf)IF 

r 156. 

IJ=KK*2 

A 3 ' • 

JK  = J J 1 + KK- 1 

158. 

RP(IJ)=R(JK) 

■y  159. 

I J= I J* 1 

1 160. 

RP ( I J ) =- 1 

* 161. 

300 

CONTINUE 

162. 

PRINT  398 

| 163. 

398 

FORMAT ( 1 OX. ' X-AXIS* ) 

A 164. 

PRINT  399, (RP(LL) ,LL=1 *IJ) 

165. 

399 

FORMAT (5X, 10F10. 45 

t 166. 

PT  ( 1 ) =R ( JJ1 ) 

1-  l67* 

PT (2) =Z ( I I 1 ) 

4 168. 

PT  (3)=0 

* 169, 

LAB=1 

I 170. 

CALL  AXtS(RP*PT*LA8,2»l) 

* 171. 

C— 

5 M2  2. 

1 


J COLUMN ( 0 ) 


_ 172. 

PT { 1 ) =9 ( JJ1 ) 

j 173. 

PT (2) =Z ( I 12)  • 

* 174. 

P T { 3 ) ss  0 

175. 

LA8=1 

~ 176, 

CALL  aXES(RP»PT*LAB»2,2) 

w 177.  . 

call  symcon(0,07,4.i.i»-i.2) 

178. 

C— — 

YAXIS  AT  X=R ( JJ1 > 

r 179« 

RP ( 1 ) sIOIF 

1 180 , 

DO  301  KK=1,IDIF 

•*  181. 

IJ=KK»2 

182. 

JKs III + KK- 1 

\ -183,... 

RP(IJ)=Z(JK)  

i.  184, 

IJ=IJ*1 

185. 

RP ( I J) =“1 

< 186. 

301 

CONTINUE 

' 167. 

PRINT  397 

188. 

397 

FORMAT'lOX,*  Y-AXIS*) 

189. 

PRINT  399, (RP(LL) »LL=1*IJ> 

i 190. 

PT ( 1 1 sR ( JJ1 ) 

••  191, 

PT (2  > =2 ( 1 1 1 ) 

192. 

PT (3) *0 

j 193. 

L AB  = 2 

i.  194. 

CALL  aXES(RP.PT,LAB»2,2) 

195. ... 

C 

196. 

PT  < 1 ) sR ( J J 1 ) 

| 197. 

PT ( 2 ) sZ ( 1 1 1 ) 

‘ 198. 

PT ( 3) =RGV 

199. 

LAB=2 

200. 

CALL  AXES(RPtPT.LAB.2*l! 

201. 

c 

Y-AXIS  AT  X = R (UU2) 

202. 

PT (1 ) sR ( JJ2) 

' 203. 

PT ( 2 ) =Z ( 1 1 1 ) 

; 204. 

PT  < 3 ) =0 

205. 

RP<3) =1 

V 206, 

RP ( 1 J) =1 

: 207. 

LAB  = 2 

208. 

CALL  aXE5(RP»PT»LAB*2*1) 

209. 

C 

— — 7-AXIS  AT  X = R ( J J 1 ) , YsZUIl) 

, 210. 

CALL  SYMCON(0. 07, 1,-1. 1,1.2) 

211. 

RP ( 1 ) cRGV* 1 , 

31  J. 

k It  w ■ 

RR(1)=RGV*1 

T 213. 

1 1 =RR  ! 1 ) ♦ 1 

± 214, 

DO  302  KK  = 1 , 1 1 

215. 

IJ:=KK*2 

- 216. 

RP ( I J) =KK-1 

T 2i7* 

RR(IJ) =KK-1 

* 218. 

IJ=IJ+1 

219. 

RRUU)  = (-U«*(KK  + 1) 

T 220. 

RP  < I J) =-l , 

1 221, 

302 

CONTINUE 

222. 

PRINT  396 

1 223, 

396 

FORMAT 1 1 OX , 1 Z-AXIS*) 

1 224. 

PRINT  399, <RR(LL) ,LL=1,IJ) 

225. 

PT(1)=R(JJ1) 

_ 226. 

PT  (2) =Z  ( 1 1 1 ) 

1 227« 

PT ( 3 ) =0 

■ 228. 

LAB  = 3 

MZ3 


JTMM 


1 J COLUMN (0) 

"1 

i 

i 

( 

229. 

CALL  AXES (RR.PT »LA0t2»l) 

1 230. 

PT(l)sRCJJl) 

I * 231. 

PT (2) =2 ( I I 2)  1 

232. 

PT (3 ) sO • | 

| 233. 

LAB=3  S 

1 234  • 

CALL  AXES (RPtPT  » LAB » 2 » 1 ) j 

235, 

DO  299  LL*1*NUM  f 

T 236, 

PRINT  199*LL*IC0N(LL)*P{1.LL) » P (2»LL ) » P ( 3 «LL ) * 

1 237. 

199 

FORMAT  (5X.I5»5X»I5»5X,:3F15.4)  \ 

. * 238. 

299 

continue 

239. 

C 

7 240. 

c 

fND  OF  PLOT  SETUP  i 

241. 

c 

3 

242. 

WRITE (6,35) WAVEL.NPULSE  i 

- 243. 

35 

FORMAT (1H0*11HWAVELENGTH=»E8.3»2HCM,10X» 17HNUMBER  OF  PUL St S** 15) 

244, 

WRITE(6,36)DPULSEiRIM 

j 245. 

36 

FORMAT (1H0*12HPULSE  WIDTHs, £8. 3» lOX * 13HIMA6E  RAD I US= ,EB . 3 ) 

1 ...  246. 

WRITE ( 6 * 37 ) REPET 

247. 

37 

FORMAT (lH0tl6HREPETITION  RAT E = , EB , 3 , 1 OHPULSES/SEC ) 

- 248. 

c 

249. 

WRITE (6,40) 

~ 250. 

40 

FORMAT (1H0.17HAXIAL  DISTANCE, CM) 

251. 

WR  I TE ( 6 , 4 1 ) 

! 

252. 

41 

FORMAT  < 1H0 , 18HRADI AL  DISTANCE. CM) 

- 253. 

WR I TE ( 6 , 42 ) 

! 254. 

42 

FORMAT (1H0 , 25H TEMPERATURE  RISE. DEGREE  C) 

*•  255. 

WRITE (6,43)  TIMEX.NRUN 

_ 256, 

43 

FORMAT (1H0,27HTEMPEHATURE  RISE  PROFILE  aT,E8.3,HHSEC (RUN=,I3, 1H) ) 

« 257. 

CALL  PLOT (0. .0. »-3) 

- 258, 

HT=,07 

i 259. 

A=TIMFX 

7 260. 

b=nrun 

1 261. 

CALL  SYMROL<0, ,1. ,HT,29H  TEMPERATURE  RISE  PROFILE  AT  ,0.,29) 

! 262. 

XX=29ttHT 

- 263. 

CALL  NUMQER(XX»1.,HT,A,0.0»7) 

264, 

XXsXX+12*HT 

A 265. 

CALL  SVMB0L(XX«1.,HT,12H5EC  — RUN  = ,0.0,12) 

i 266. 

XX=XX*12*HT 

T 267 * 

call  number(xx,i.,ht,b, 0.0,0) 

1 4 268. 

CALL  READ I N ( I RR) 

j ■ 269. 

STOP 

1 T 270« 

! ■ 1 ' 

END 

I 


I 

1 


I 


PCROSS (0) 


I 

I 

1 

1 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9* 

10. 

11. 

12. 

13. 

14. 

15. 

16. 
17. 


SUBROUTINE  PCROSS <PA,PB,PC»V, IS) 
0 1 MENS  I ON  PA(3> .Pe<3) ,PC(3) fV<3) 
DIMENSION  VX (3) ,VY<3) 

DO  10  1=1,3 

VXm=PB(I)~PA<I) 

VV(!)bPC(I)-PA(I> 

10  CONTINUE 

V (1)  =VX  (2)  <>VY<3)  -VX  !3i  *VY  (2) 

V <2>=- (VX (1 ) *VY (3) -VX (3) *VY < 1 ) ) 
V(3>=VX<1)<»VY(2)-VX<2)*VY<1) 
SUM=0 , 0 

DO  20  1=1,3 
20  SUM=SUM*V(I)*V(I) 

SUM=SQRT (SUM) ♦ 1 . 0E-20 
DO  30  1=1,3 
30  V(I)=IS«V(I)/SUM 
RETURN 


Jequ  I V { o ) 

I 

■ 3. 

4. 

L J: 

I 


SU9R0UTINE  EQUIV(PAtPB) 
DIMENSION  PA ( 3 ) *P0(3) 

DO  10  1=1.3 
10  PA  < I ) sPB ( I ) 

RETURN 

END 


1 


i 


i 

*5* 

I 

1 

I 

I 


I 


JpOLSUR(O) 


I 

J 

) 

] 


1 

1 

i 

1 

1 

S 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8 « 

9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17, 

18. 

19. 

20. 
21. 
22. 

23. 

24.  . 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41 . 

42. 

43. 

44. 

45. 

46. 

47 . 

48. 
'♦9. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 


SUBROUTINE  POLSUR(M.N) 

COMMON/PLBAS1/P14.3O01) .ICON (3001) » NUM, NUM AX 
DIMENSION  W ( 3 » 500 ) 

NCT  = 0 

00  10  1 = 1. N 
DO  10  J= 1 » M 
NCT=NCT ♦ 1 
00  10  L = 1 * 3 
W(L*NCT)=P(L.NCT) 

10  CONTINUE 
NUM  = 0 

DO  20  N1=1.N 

NLO=Nl 

MMsM-1 

DO  20  M1=1,MM 
Ml.O  = Ml 
NUM-NUM+1 
NA=M1.N1*M-M 

call  equiv<p(i,num) .wq.na) ) 

ICON (NUM)  =0 

IF(Ml.EQ.I)  IC0N<NUM>=10 

NUM=NUM+1 

NA=M 1 4 1 ♦ < N 1 - 1 ) »M 

CALL  EQUIV(P<1.NUM) ,W(1»NA) } 

ICON ( NUM ) =0 

NUM=NUM*1 

ISIGN=1 

IF(Nl.NE.l)  1SIGN=-1 

NA=MLO+(NLO-l)#M*l 

NB=NA-1 

NC=NA* I5IGN*M 

ISIGNs-ISIGN 

CALL  PCROSS(WUfNA)  fWU.NB)  »W(i,NC)  .Pd.NUM}  . I SIGN) 
ICON (NUM) =50 
20  CONTINUE 

DO  30  M1=1»M 

MLO=Mi 

NN=N-1 

DO  30  Nl=l,NN 
NLO=N] 

NUM=NUM+ 1 
NA=M 1 ♦ ( N 1— 1 ) 

CALL  E0UIV(P(1 »NUM) »W(1,NA) ) 

ICON (NUM) =0 

IF(Nl.EU.l)  ICON (NUM) =10 

NUM=NUM+ 1 

NA=M 1 + (Nl-1 ) ^M  + M 

CALL  EQUIV(P(1 .NUM) »W(1,NA) ) 

ICON (NUM) =0 

NUM=NUM*1 

ISIGNrI 

IF(Ml.EU.M)  ISIGN=-1 
NA=MLO+ (NLO-1 ) *M*M 
NB  = NA+  ISIGN 
NC=NA-M 
I5IGN=-ISIGN 

CALL  PCROSS  C W ( 1 *NA)  t W ( 1 , NB ) c W ( 1 . NC > »P(1 .NUM) .ISIGN) 


M2  7 


| POLSUR ( 0 ) 

158,  ICON (NUM) =50 

59,  30  CONTINUE 

60  ■ ..  RETURN 

bl,  END 

I 

l 

' T - 

mtt 


i 

I 

I 

] 


OFFSET (0) 

1 • 

2. 

. 3.  .... 

4* 


C--- 


SUBROUTINE  OFFSET(XDUM»YDUM) 
DUMMY  OFFSET  ROUTINE  FOR  CALCOMP 
RETURN 
END 


I 

I 

I 


SYMCON  < 0 ) 

1. 

2. 

3. 

4 9 

5. 

6,  _ .... 

7. 

0. 

9. 


SUBROUTINE  SYMCON ( HH »NN , XX  * YY ) 

COMMON/PLBASI/  P(4.300l) ,ICON(3001) ,NUM,NUMAX 
NUM=NUM*1 
00  10  1=1,3 
10  P(I,NUM)=0.0 
P(4,NUM)=HH 
ICON (NUM) = 71 
NUM=NUM+1 
00  20  1=1*3 


4 

10. 

20 

P(I,NUM)=0,0 

11. 

P(4*NUM) =NN 

1 

12. 

ICON (NUM) =72 

* 

13. 

NUM=NUM+1 

14. 

DO  30  1=1,3 

•r 

15. 

30 

PiI,NUM)=0.0 

16. 

P ( 4 * NUM) =XX 

17. 

ICON (NUM) =73 

18. 

NUM=NUM*1 

19. 

DO  40  1=1,3 

20. 

40 

P ( I , NUM) =0.0 

21. 

P(4,NUM) =YY 

22. 

ICON (NUM) =74 

|«V 

23, 

RETURN 

.2*,. 

end 

T 

1 

1 

1 

1 

1 

I 

8 


i 


M3U 


1 


XES (0) 


1 


1 


] 


1. 

2. 

3 • 

4 « 

5, 

6. 

7. 

8. 

9. 

10. 
11  . 
12. 
13. 


I 


C 

C 

c— 

c 

c 

C-— 

c- — 


IN  THE  THREE 


SUBROUTINE  AXES ( R , PT »LAB , MODE , NCON) 

COMMON/PLBAS1/  P(4,300l> *ICON(3001) ,NUM,NUMAX 
DIMENSION  R ( 1 ) ,T(102> 

data  nt/ioo/ 

DIMENSION  PT  < 3 ) 

„DATA  BI6/1.0E420/ 

OBJECTIVE  OF  ROUTINE  IS  TO  GENERATE  AXIS  DATA 
DIMENSIONAL  POINT  DATA  BASE 
INPUT  IS  THRU  CALLING  ARGUMENTS  AS  FOLLOWS 
LAB  SHOULD  BE  1 2 OR  3 DENOTING  X*  Y OR  2 AXIS  INFORMATION 
IF  MODE  IS  1 THEN  R<1»2»3  AND  4)  DENOTE  RESPECTIVELY  THE  START. 

INCREMENT, NUMBER  OF  INCREMENTS  AND  INCREMENT  FOR  NUMBERING 
M0DE=2  MEANS  THAT  THE  TICK  DATA  15  STORED  IN  THE  ARRAY  R SO  THAT 

IS  the  VALUE  FOR  The  FIRST  , 
SHOULD  BE  PLOTTED ♦ AND  NEGATIV 


14. 

C 

R ( 1 ) IS  THE  NUMBER  of  POINTS,  R(2> 

IS, 

C — 

MARK,  R (3)  IS  POSITIVE  IF  A NUMBER 

«« 

16. 

C 

OTHERWISE  AND  SO  ON 

17. 

C 

IN  THE  CASE  OF  EACH  MODE,  TICK  DATA 

— 

18. 

c-— _ 

T AS  A BUFFER,  AND  THEN  TRANSFERRED 

19. 

GO  TO  (10,20) ,MODE 

20, 

10 

CONTINUE 

21. 

STARTsR ( 1 ) 

22. 

A I NC  = R ( 2 ) 

23. 

NO=R ( 3 ) 

24. 

I V I NCsR ( 4 ) 

25. 

IRR  = 1 

26. 

IF (NO.LE.O ) GO  TO  998 

27. 

I RR  = 2 

•» ' 

28. 

IF (NO. GT, NT/2)  GO  TO  998 

29. 

T(l)=NO 

30, 

SMINsRIG 

31. 

SMAXa-BIG 

32. 

DO  11  1=1, NO 

33. 

T(2*l)=START+ (I-l)»AINC 

34. 

T ( 2* I ♦ 1 ) =- 1 

35, 

SMINcaMINI (T (2*1 ) ,SMIN) 

_ 36  , 

SMAX=AMAXI ( T < 2* I ) , 5MAX ) 

37. 

IF(IVINC.LE.O)  GO  TO  10 

3B  . 

IF  (MOD (ItlVlNC) .EQ.l)  T(  2*1*1) =1.0 

, 

39. 

11 

CONTINUE 

mlc* 

40. 

GO  TO  100 

41. 

20 

CONTINUE 

7 

42. 

NO=R ( 1 ) 

X 

43, 

IRR=3 

44, 

IF(NO.LE.O)  GO  TO  998 

T 

45, 

IRR=4 

1 

46  , 

IF (NO. GT, NT/2)  GO  TO  998 

47. 

SM I N=R I G 

48. 

SMAX=-B I G 

T 

49. 

DO  21  1 = 1, NO 

4 

50. 

T (2* I ) =R ( 2*1 ) 

51. 

T (2*1 ♦ 1 ) =R ( 2*1 ♦ 1 ) 

1 

52, 

21 

CONTINUE 

1 

53. 

100 

CONTINUE 

54. 

JTEM=NUM 

* 

55. 

DO  110  1=1, NO 

I 

56. 

JTEM= JTEM* 1 

■ 

57, 

DO  120  J=1 *3 

IS 

TO 


BUILT  INTO  THE  LOCAL  ARRA's 
THE  POINT  ARRAY 


M31 


JxES(O) 


I 

1 

1 

1 

l^T 


• « 


» * 


i 

> 


58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 


120  P ( J. JTEM) =PT ( J) 

P(4.JTEM)=LA8 

P(LAB.JTEM)=T(2«I) 

IF(I.FO.l)  ICON (JT£M)=MCONtt10+l 
IF(I.NE.l)  ICON (JTEM) =1 
110  CONTINUE 
NUM=NUM*NO 
JTEM=NUM 
DO  130  1=1. NO 

IF<T(2*I*1> .LT.0,0)  GO  TO  130 
NUM=NUM*1 
JTEMs JTEM* 1 
DO  140  J=  1 * 3 
140  P(J.JTEM) =PT (J) 

P(LAB.JTEM)=T(2"I) 

ICON(JTEM) =33. 

P ( 4 . JTEM ) = T{2*>I' 

130  CONTINUE 
999  I RR  = 0 
RETURN 

998  WRITE  <6.997)  IRR 

997  FORMAT*/.’  ERROR  IN  AXES  ROUTINE.  IRR=  ».I6,/) 
RETURN 

end 


1 

I 


M3  2 


1 


I 

I 

I 

I 

1 

1 

I 

1 

1 

I 

1 

1 


i)£COD  ( 0 3 


1. 

2. 

3 » 

4. 

5 o 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19, 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 
29. 
30  * - 

31. 

32. 

33. 

34. 

35. 

. 36. 

37. 

38. 

39. 


’ SUBROUTINE  DEC0D(Pp.VV.AA.JC0N.1SYM,1VEC,I> 
CQMMON/PLBftSl/  P (4.3001 ) , I CUN (3001 ) . NUM . NUMAX 
CQMM0N/PLBAS2/  AP ( 16 ) ♦ AV ( 16} .CP (16 ) . DAT  ( 7 > 
co'mmon/plraS3/  winxl.winyl.winxw.winyw.iwin 
C0MM0N/PLBAS4/  SCRNXL . SCRNYL . SCRNXW , SCRNYW , 1 SCRN 
C0MM0N/PLBAS5/  SIGNOR. SNPLOT ♦ IH 
C0MMQN/PLBAS7 /Hi .NOECFX.X LATE. YL ATE 
DIMENSION  PP (3) » VV (3) 

I VEC  = 0 

IF ( I .GE. NUMAX)  GO  TO  999 
IFU.GT.NUM)  GO  TO  999 

00  10  L= 1 . 3 
10  PP (L) =P (L» I ) 

AA=P (4.1) 

JCON=JCON(I)/10 

ISYM=1CON(I)-10»JCON 

IF  ( JC0N.GE.5)  GO  TO  997 
IF  ( ISYM.GT .3)  GO  TO.  999 
INEX=ICON(I+1)/10 
IVECsO 

IF ( INEX.NE.5)  GO  TO  99B 

1 = 1*1 

DO  20  L=1 .3 
20  VV (L) =P(L.I) 

IVEC  = 1 

998  CONTINUE 
RETURN 

999  CONTINUE 

I*-l 

RETURN 

997  CONTINUE 
IVEC=999 

IF  ( JCON , NE , 7 3 RETURN 
IF (ISYM.EQ.13  HT=P ( 4 . I ) 

IF ( ISYM.EQ.23  NDECFX=P(4,1) 

IF ( ISYM.EQ.3)  XL A TE=P (4.1) 

IF (ISYM.EQ.4)  YLATE=P(4.I) 

RETURN 

END 


1 


I 


I 

I 


M3  3 


! j^SPLOKO) 

< . . " 

H 1 » 

subroutine  ssplot 

i 2- 

COMMON/PL B AS 1 / P ( 4 * 30  0 1 ) » ICOM ( 3001 ) ,NUM,NUMAX 

■ 3. 

COMHON/PLBAS2/  AP (16) , AV ( 16 ) , CP ( 16 ) , DAT ( 7 ) 

4* 

COMMON/PLBAS3/  WINXL*WINYL»WINXW,WINYW, I WIN 

1 5* 

C0MM0N/PLBAS4/  SCRNXL , SCRNYl , SCRNXW , SCRNYW , SCRNZW , I 5CRN 

C * . 6. 

C0MM0N/PLBAS5/  S I GNOR * SNPLOT , I H 

7. 

COMMON/PLBAS6/DI MAGE  *D0RI6,D08X*D0BY 

1 8* 

COMMON/PLBaS7/HT,NDECFX»XLaTE* YLATE 

] 9. 

c — 

AP » AV  ARE  PROJECTIVE  NON  SINGULAR  MATRICES  WHICH  RECORD  THE 

10. 

c 

CURRENT  POSITION  OF  THE  POINT  SET 

11. 

c 

IH  THE  HIOOEN  LINE  FLAG 

12. 

c 

ZVIEW  IS  DISTANCE  OF  VIEWERS  EYE  FROM  PROJECT I ON ( XY ) PLANE 

4 13. 

c--« 

DAT  CONTAINS  THE  COMMAND  DATA  FOR  EXECUTING  PIECES  OF  THI5  ROUTI 

14. 

C-~ 

SIGNOR  THE  SIGN  APPLIED  TO  THE  SURFACE  NORMALS 

1 15. 

c 

P CONTAINS  XY2  DATA  OF  PO I NTS , VECTORS  AND  SYMBOL  DATA  IN  4TH  PLC 

| J.  16, 

c— 

ICON  CONTAINS  TWO  PACKED  DIGITS  AB  WITH  THE  FOLLOWING  MEANING 

1 17. 

c— - 

A=0,  CONTINUE  PRESENT  MODE  OF  PLOTTING,  A=l  START  CONNECTING  POIN 

- 18. 

r 

BY  STRAIGHT  LINES*  A=2  CONNECT  PT$  BY  DASHED  LINES.  A = 4 PLOT  POI 

19, 

c— 

S ONLY » A=4  PLOT  DASHED  POINTS 

~ 20. 

c 

B = 0 PLOT  NO  SYMBOL,  B=1  PLOT  CENTERED  SYMBOL  WHOSE  VALUE  IS  P(4») 

21. 

c 

PLOT  LITERAL  STRING  IN  FIELD  P<4,)  0=3  PLOT  NUMBER  IN  FIELD  P(4, 

22. 

c— - 

SET  UP  WINDOW  PARAMETERS 

1 -'23. 

DATA  SMALL /1.0E- 10/, SMAL/1.0E-8/ 

.24,  . 

DIMENSION  AI0<16)  ,TPU6)  ,BP(16) 

| 7-  25. 

DIMENSION  RW I D ( 3 ) , RCEN  1 3 ) ,HMIN(3> ,RMAX(3) 

..  26. 

DIMENSION  I BUF (1000) 

27. 

DIMENSION  PP(3)  *VV<3i 

28. 

DATA  A ID/ 1.0 ,4^0. 0,1. 0*4* 0.0, 1.0, 4*0. 0,1.0/ 

29. 

ITsDATU) 

i *:  3o. 

GO  TO  (10, 20,30, 40, 50, 60,70, 80, 90,100, 110, 120, 130, 140, 150)  , IT 

1 31  . 

c— 

I T a 1 INITIALIZE  KEY  VARIABLES  WITH  DEFAULT  VALUE5 

' 32. 

10 

SIGNOR=l .0 

- 33. 

NUM  = 0 

34. 

IPRINaO 

'•  35. 

HT  = 0 • 1 4 

36.  . 

HT=0.07 

i 37. 

SWIDTh=8.25 

- 30. 

SHE  I GT  =6 , 5 

i 39. 

ISCRN=-1 

40. 

IWIN=-1 

41, 

scrnxl=o,o 

42. 

SCRNYLE0 , 0 

! ..  43. 

SCRNXW=8,5 

44. 

SCRNYw=6, 25 

- 45. 

SCRNZW=SCRNXW 

46 , 

SXUNIT=1024. 

47. 

SYUNIT=760.0 

- 48. 

I H = 0 

1 

ZVIEWaO.O 

* 50. 

NERASE=0 

51. 

HT=0.07 

1 52‘ 

NDECFX=-I 

1 53. 

XLATEs-1. 1 

54. 

YLATEs-1 • 1 

<*  55 . 

NUM  = 0 

a 56. 

CALL  PLOTSdBUF,  1000,10) 

* 57. 

IPRINaO 

IE 

1134 

1 

b 

- - - - _ _ ■ J 

I 


SPLOT(O) 


t 

58. 

00  11  1=1.16 

a 

59. 

BP ( I ) cAlD ( I ) 

.60. 

...  AP  { 1 ) sAI 0 ( I ) 

* 

61. 

11  AVd)sAIO(Z) 

I 

62. 

6P ( 1 1 ) =0 . 0 

• 

- 63  . 

C— -REPLACE  INCREMENTAL  VALUES 

.WITH  ABSOLUTE 

64. 

NUMAX=3000 

1 

65. 

DO  13  L=1.NUMAX 

<1 

66. 

DO  14  K=1 ,4 

67. 

14  P ( K ♦ L ) =0  » 0 

T 

68, 

ICON (L  5 =0 

1 

-69. 

13  CONTINUE 

70. 

DOBX*0 , 0 

71. 

DO8Y=0 • 0 

•» 

72. 

GO  TO  999 

HI  - 

73. 

C- 

— 20.30  AND  40  ARE  ROTATION 

commands 

74. 

C~ 

— IT-2  X YRQ  ' OR  ROLL 

75. 

20  DAT ( 1 ) = 1 . 0 

76. 

CALL  PEHSPT(DAT.TP) 

77. 

call  mmultup.tp,cp»1) 

78. 

- CALL  MMULT (AV.TP.CPf 1) 

D 

79. 

GO  TO  999 

60* 

c- 

--  I T»3  YZROT  OR  PITCH 

* 

Bl. 

.30  DAT ( 1 ) =2. 0 

82. 

CALL  PEWSPT(DAT.TP) 

-• 

83. 

CALL  MMULT(AP.TP.CP.l) 

. B4  » 

CALL  MMULT(AV,TP.CP*15 

■ » 

85. 

GO  TO  999 

«t  »• 

86. 

c- 

— I T=4  ZXROT  OR  YAW 

...  87. 

40  DAT ( 1 ) =3 

88. 

CALL  PERSPT(DAT.TP) 

89. 

call  mmult(ap.tp.cp*1) 

«*■ 

90. 

CALL  MMULT (AV.TP.CP.l) 

91  . 

GO  TO  999 

' Hi 

92. 

C- 

— it=5  scale 

93.  . 

.50  D AT ( 1 ) =4 

94, 

CALL  PERSPT (DAT  «TP) 

T 

95. 

CALL  MMULT (AP. TP. CP.  1) 

1 

96. 

GO  TO  999 

97. 

c- 

— IT=6  TRANSLATION 

** 

98. 

60  DAT ( 1 ) =5 

I 

99.  

CALL  PERSPT (DAT. TP) 

i. 

100. 

CALL  MMULT (AP.TP.CP. 1 ) 

101. 

GO  TO  999 

102. 

c- 

— I T=7  SETUP  PROJECTION  ONTO  XYPLAN  FROM  V: 

I 

103. 

70  DAT ( 1 ) =6 

104. 

ZVIEW  = DAT  (?) 

105. 

. DIMAGE  = DAT  (2) 

i 

106, 

DORIGrDAT (3) 

107. 

DOBXsDAT  <4) 

108. 

DOBY=DAT(5) 

1 

109. 

CALL  PERSPT(DaT!.BP) 

a 

110. 

GO  TO  999 

111. 

c- 

— REIOEnI 1FY  THE  TRANSFORMATION  MATRICES 

i 

112. 

80  DO  81  1=1,16 

1 

113. 

AP ( I ) sA ID ( I ) 

114. 

81  AV(I!=AID(I) 

VALUES 


VIEWERS  POSITION 


I 


M3  5 


IsPLOT  (0) 


I 116. 

117. 

Ilia, 

119. 

120. 

121. 

1122. 
123, 
124. 
125. 
1 126. 
■*'  127. 
126. 
1 129. 
J 130. 

131, 
- 132. 
i 133. 

134, 
^ 135. 
j 136. 
- 137. 

136. 
7 139, 
..  140. 

141. 
~ 142. 
" 143. 
.".144, 
, 145. 
1 146, 
147, 
148. 
* 149. 
i 150, 
151. 
T 152, 
J 153. 
**■  154, 
155. 
7 156, 


GO  TO  999 

C SETUP  THE  HIDDEN  LINE  FLAG 

90  IH=0AT<2> 

GO  TO  999 
100  SlGNOR=DAT (2) 

GO  TO  999 

no  continue 

I W I N = - 1 

lF(DAT<2)**2*DAT<3>*»2*DAT<4)*«2*l)AT(5)**2.LT.SMALl  GO  TO  999 
IWIN=1 

W INXLsDAT ( 2 ) 

WJNYLsDAT (3) 

WINXW=DAT(4) 

WINYWaDAT (5) 

GO  TO  999 

c— - screen  parameters  introduced 

120  CONTINUE 

I SCRN=- I SCRN 

IF<DaT(2)**2*DAT<3>**2*DAT(4>**2*DAT(5>*«?.LT.SMAL)  GO  TO  999 
SCRNXL=DAT (2) 

SCRNYL=DAT<3) 

SCRNXW=DAT(4> 

SCRNYW=DAT(5) 

SCRNZW=DAT(b) 

I SCRN= 1 
GO  TO  999 

C-“-  BOX  COMMAND,  SCALE  THE  OBJECT  TO  FILL  THE  SCREEN 

130  CONTINUE 

IF(IScRN.LT.O)  go  TO  999 
PROAcDAT (2) 

PROB=DAT<3) 

PR0C=0AT(4) 

C— DETERMINE  THE  XYZ  EXTENT  OF  THE  TRANSFORMED  OBJECT 
DO  131  L= 1 , 3 
RMIN ( L ) = 1 • 0E*2Q 

131  RMAX(L) =-l,0E*20 
1 = 0 

137  1=1*1 

IF(I.GT.NUM)  GO  TO  138 

CALL  DEC0D(PP,VV,AA,JC0N, ISYM, IVEC, 1 ) 

IF < IVFC.EQ.999)  GO  TO  137 
IF(I.LT.O)  GO  TO  999 

WW  = PP  ( 1 > *AP  < 13)  *PP  (2!  *AP  ( 14) *PP (3) «AP (15) *AP  ( 16)  *SMALL 

DO  132  L = 1 » 3 

L4=L»4 

PPP=  (PP  ( 1 ) «AP  (L4-3)  *PP  (2)  *>AP  (L4-2)  *PP(3)*AP(L4-1)*AP(L4))  /WW 
RMIN(L) =AMIN0 (PPP.RMIN(L) ) 

RMAX(L) =AMAX0 (PPo.RMAX(L) ) 

132  CONTINUE 
GO  TO  137 

138  CONTINUE 

DO  133  L=1 ,3 

RCEN  { L ) = (RMIN (L) ♦ RMAX  IL> ) /2,0 
RWID (L) =RMAX(L) -RMIN(L) + SMALL 
QaT  (L  + l > =-RCEN (L) 

133  CONTINUE 

C-—  CENTERISE  THE  OBJECT  AROUND  THE  ORIGIN 


IsSPlOT(O) 


T 172. 

DAT (15=5 

I 173. 

call  perspt(dat.tp) 

* 174. 

call  MMULT (AP.TP.CPtl) 

175» 

C—  SCALE  THE  OBJECT  INTO  THE 

1 176. 

IF(ISCRN.LE.O)  GO  TO  999 

177. .... 

A=i ,0E*20 

17B. 

SX=SCRNXW/RWID(1)*PR0A 

r 179, 

IF  ( PR08 *GT .0.0)  GO  TO  135 

. 180, 

A=SCRNYW/RWID (2) »PROA 

1B1. 

SX=AMIN1 (SX.A) 

- 182. 

DAT  « 2 ) =SX 

SCREEN  AREA  OR  WINDOW  AREA  IF  REQUESTED 


. 183,. 

" • 134, 
IBS. 
i 136. 

! 187. 

IBB. 

189. 

190. 

191. 

192. 

193. 

! 194, 

195. 

196. 

1 197. 

198. 

199, 

: 200. 

201. 

202. 

, 203. 

■ 204. 

205. 


. 206. 

207. 

208. 


209. 


210. 
-■  211. 
212. 
y 213. 

..  214. 
215. 


- 216. 
1 217. 


218. 

, 219. 

I 220. 
* 221. 
222. 

1 223. 
224. 
225. 
226, 
227. 
228. 


DAT  < 3 ) *SX 
OAT  < 4 ) sSX 
GO  TO  136 

135  CONTINUE 
SY*SCRNYW/RWID (2) «PHQ8 
DAT  1 2 ) =SX 

DAT  (3) =5Y 
DAT ( 4 ) = 1 , 0 

IF (PROC.GT.0.0)  DAT (4 ) =SC«NZW/RW ID ( 3) *PROC 

136  CONTINUE 
DAT  11) =4 

call  perspt(Dat.tp) 

Call  MMULT (AP.TP.CPtl) 

call  mmult(av,tp,cp*d 

IF ( IWlN.LE.O)  GO  TO  999 

C APPLY  A FURTHER  TRANSLATION  AND  SCALP.  IF  WINDOW  IS  IN  EFFECT 

0 AT ( 1 ) =5 . 

DAT<2)=-(VJINXL*WINXW/2.0) 

DAT(3)=-(WINYL+WINYW/2.0) 

DAT  < 4 ) =0 , 0 

CALL  PERSPT(DAT.TP) 

. ..  CALL  MMULT (AP.TP.CPtl) 

DAT(2)=SCRNXW/WINXW 
DAT (3)=SCRNYW/WINYW 
DAT (2)=AMINl (DAT (2) .DAT (3) ) 

D AT ( 3 ) =DAT ( 2 ) 

DAT ( 4 ) =QAT ( 2 3 
DAT ( 4 ) =1 . 0 
DAT ( 1 ) -4 , 0 
CALL  PERSPT (DAT.TP) 

CALL  NiMULT  ( Ar  . TP  . CP . 1 ) 

CALL  MMULT(AV.TP.CP.l) 

WlNXWsSCRNXW 
. WINYW=SCRNYW 
WINXL=SCRNXL 
W1NYL=SCRNYL 
GO  TO  999 

C APPLY  A STRAIGHT  FACTOR  TO  ALL  SUBSEQUENT  PLTS 

140  CONTINUE 

IF (DAT <2) .LE.SMAL)  GO  TO  999 
CALL  FACTOR ( DAT ( 2 ) ) 

GO  TO  999 

C main  plot  PROCESSING  IS  HERE 

150  CONTINUE 

IF (DAT ( 4 ) . LT , 0 • 0 ) CALL  PLOT ( 0 , . 0 . . -3 ) 

IF(DAT<4> .LT.0.0)  CALL  PLOT (DAT (2) .DAT (3) .999) 


I 
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KSPLOT(O) 

m 229. 

IF  (DAT (4) .LT. 0.0}  GO  TO  999 

| 230. 

CALL  PLOT (DAT (2) .DAT (3) ,-3) 

231. 

0 

1 
i 
i 

OFFSET  COMMAND  FOR  THE  TEKTRONIX  VERSION  ONLY 

232. 

CALL  OFFSET (4.125,3,25) 

I 233. 

151 

CONTINUE 

• 234. 

CALL  MMULT (AP,BP»CP.3i 

235. 

c— 

SETUP  the  window, screen  AND  PLOT  BOUNDARIES 

f 236. 

IF(IWIN.LE.O.AND.ISCRN.LE.O)  GO  TO  154 

1 237. 

IF(ISCRN.GT.O)  GO  TO  153 

238. 

IF (IWjN.LE.O)  GO  TO  154 

1 239. 

XLsWINXL 

J .240  » 

YL=WINYL 

4 241. 

XW=W I NXW 

242. 

YWr-WlNYW 

] 243.  ... 

GO  TO  152 

1 244. 

153 

XL-SCRNXL 

245. 

YL=SCRNYL 

1 246. 

XWaSCPNXW 

' 247 . 

YWsSCRNYW 

* 248. 

152 

CONTINUE 

249, 

I F (DAT  <2><»*2*DAT(3)**2,GT.SMAL>  CALL  PLOT < XL* XW/2 , 0 . YL* YW/2 

i 250. 

CALL  PLOT (XL»YLi3) 

**  251 . 

CALL  PLOT ( XL ♦ XW  » YL  » 2) 

252. 

CALL  PLOT <XL*XW,YL*YW,2) 

" 253. 

CALL  PLOT (XL»YL*YW,2) 

...  254. 

CALL  PLOT ( XL  * YL  * 2 ) 

255. 

154 

CONTINUE 

~ 256. 

MOVNOW'-O 

257. 

IFdSCRN.GT.O.OR.IWIN.GT.O)  CALL  WINDOW ( XL* YL *XW ,YW*MOVNOW> 

258.. 

/ 

' XLAS=0 , 0 

, 259. 

YLAS=0.0 

• 260, 

IP£RM=0 

“ 261, 

nplt=o 

262. 

1=0 

” 263, 

301 

1*1*1 

i 264. 

IF(I.GT.NUM)  GO  TO  302 

265, 

i 

i 

i 

o 

MAIN  PLOTTING  LOOP 

T 266. 

X1=XLAS 

1 267. 

yi=ylas 

* 268, 

c 

DECODE  THE  NECESSARY  POINT  AND  AUXILIARY  DATA 

269, 

I A=  I 

‘j  270. 

call  decod (Pp.vv.aa. jcon,isym,ivec»ia) 

i 271. 

IFdVEC.EQ.999)  GO  TO  301 

272. 

IFdA.LE.O)  GO  TO  300 

J 273. 

I = I A 

1 274. 

IF (JCON* (5-JCQN) «NE . 0 ) IPERM=JCON 

275. 

IF (IPFRM.EQ.O)  GO  TO  300 

- 276. 

WNOW=PP (1)«CP(13) *PP (2) *CP (14) *PP ( 3) UCP (15) + CP (16) *i>MALL 

I 277. 

XNOW= (PP ( 1) *CP (1) ♦PP(2) *CP(2) *PP (3) UCP (3) *CP ( 4) ) /WNOW 

* 278. 

YNOW* ( PP ( 1 ) »CP (5) *PP (2) *CP (6) + PP ( 3 ) *CP ( 7 ) ♦ CP ( 8 ) ) /WNOW 

279. 

X2=XNOW 

tt  280. 

Y2=YNOW 

■ 281. 

M0VN0W=2 

282. 

IF (IW1N.LT.0)  GO  TO  310 

g|  283. 

c 

make  the  required  window  check 

1 284. 

MOVNOW* 1 

285. 

call  window(xi.yitX2,y2,movnow) 

M3  8 


EsPLCT(O) 


jtt  286. 

1 287. 
288. 

* 289. 
290. 
291. .... 
292. 

1 293. 
294. 
295. 

1 296. 

J 297. 

298  • 

_ 299. 

| 300. 
A 301. 

302. 

~ 303. 

, 304. 

305. 

- 306. 

307. 

**  308. 

309. 
r 310. 

* » 311. 

312. 
r 313. 

..  31*. 

. 315.. 

316. 

' 317. 
T 318. 

319. 
t 320. 

1 321. 

322. 

T 323 . 
1 324. 
^ 325. 

, 326. 

1 327. 
* 328. 
329. 

1 330. 
331. 
332. 

1 333. 
334. 
335. 

1 336. 
337. 
338. 
339. 

1 340, 
341, 
342, 


310  CONTINUE 

IF  t MOv/NOW.LT  ,0  ! GO  TO  600 
...  iFdN.EQ.O.OR.IVEC.LT.l)  GO  TO  320 

C MAKE  THE  HIDDEN  LINE/SURFACE  NORMAL  CHECK 

VXNOWsVV ( 1 ) »AV  <1 > ♦VV(2)#AV(2)+VV(3)*AV(3) 

VYNOWsVV (1) *AV<5) + VV (2 ) * AV 1 6 ) ♦ VV ( 3 ) *AV ( 7 ) 

VZNOWsVV  < 1) »AV (9) *VV (2) «AV (10) *VV (3) #AV  (11) 

PXN0W3PP(1)»AP(1) »PP<2) *AP(2> +PP(3)*AP<3) +AP(4) 

PYN0W=PP(1)^AP(5) +PP (2) *AP(6) *PP ( 3 ) * AP ( 7 ) ♦ AP ( B > 

PZNOWsPP ( 1 ) #AP (9) *PP (2) #AP ( 10) +PP{3) *AP ( 1 1 ) ♦ AP ( 1 2) 

IF(AS5(BP(15) > ,LT, 0,0001)  GO  TO  330 
. . _ ZVIEW=-BPU6)/BP(15) 

D= (PXNOW-OOOX) ftVXNOW* (PYNOW-DOQY) *VYNOW* ( PZNOW-ZV I EW ) "VZNOW 

D=D*SIGN0R 

IHCURsO 

PRINT  311 

311  FORMAT < * PXNOW.PYNOW.PZNOW.VXNOWfVYNOW.VZNOW.OOBX.OOHY.ZVIEW.D' ) 

. _ ...  WRITE  (6.312)  I, 

X PXNOW,PYNOW*PZNOW, VXNOW » VYNOW ♦ VZNOW t DOBX ♦ DOU Y ( Z VI EW , D 

312  FORMAT (1X.I4*3(3(1X*F9»3) ) .2X.F9.3) 

IF(D.GT.O.O)  IHCUR^l 

GO  TO  340 
330  1HCUR=0 

D=VZNOW»SIGNOR 
IF(O.LT.O.O)  IHCUR^l 
340  CONTINUE 
320  CONTINUE 

ipermn  =iperm 

IF(IH.EQ.O.OH.IVEC.LT.l)  GO  TO  350 
IF ( IHCUR.EQ.O)  GO  TO  350 
IF ( IH.EQ.2)  GO  TO  360 
c-—  TOTALLY  HIDDEN  line 
IPERMN=0 
GO  TO  350 
360  CONTINUE 

_ IF(IPERM.EQ.l)  IPERMN  =2 
IF  (IPERM.EQ.2)  IPERMN  ::4 
350  CONTINUE 

IF ( IPERMN  .EQ.O)  GO  TO  600 

I F ( (IPERMN-2)  *UPERMN-4)  . EQ.  0 . ANO . JCON.EQ.  0 ) GO  TO  370 
NOASHsl 
UX=X2-Xi 
UY=Y2-Y1 
GO  TO  300 
370  'ONTINUE 

D = SQRT  ( (X2-X1  ) **2+  ( Y2-Y1 ) <>*2) 

NO ASHsD/Q . 25 
NUASH=MAXO (3, NOASH) 

D1=D/NDASH 

UX=(X2-X1)  /(O  + SMALL  )*-IM 
UY=(Y2-Y1)/(0*SMALL)’>D1 

c POSITION  POINT  AT  START  OF  SEGMENT 

IF (M0VN0W.EQ.3.0R.M0VN0W.EQ.5)  CALL  PLOT ( X 1 , Y 1 , 3 ) 

IF (MOVNOW.EQ.3.0R.MOVNOW, EQ.5!  NPLT=NPLT*1 
380  CONTINUE 

IF ( IPERMN  ,GT,2)  GO  TO  420 
MODO=-l 


1 


SPLOT(O) 

343, 

DO  410  J-l <NDaSH 

344, 

xx=xuux*j 

34b. 

YY-Y1«UY*J 

346. 

MODOs-MODO 

347, 

IPLT=2 

348, 

IF  (MODO.LT.O)  IP(.T=3 

349, 

IFCJCON.NE.O)  iplt-3 

350. 

NPLT=NPLTi i 

351. 

CALL  PLOT(XXtYY*IPLT) 

352. 

410  CONTINUE 

353. 

GO  TO  500 

354  « _ . 

420  DO  430  jaj iNDASH  . 

355. 

XXkX1+UX“J 

356. 

YY*Y1*UY*J 

357. 

CALL  PLOT (XX. YY *3) 

358. 

CaLL  PLOT (XX*YY »2) 

359. 

NPLT aNPLT  * 1 

360. 

430  CONTINUE 

361. 

GO  TO  500 

362. 

500  CONTINUE 

263. 

IF (MOV NOW, £0,4, OR, MO' 

364. 

IF (IjYM.EO.O)  GO  TO  ! 

365. 

GO  TO  (510,520^530) , 

366«. 

510  CONTINUE 

367  , 

INT=AA 

368. 

CALL  SYWBOL<X2*Y2tHT 

369. 

GO  TO  590 

370. 

520  CONTINUE 

I 

1 

1 

I 

1 

I 

I 


371. 
..37  2 « 
373* 

374. 

375. 

376. 

377. 

378. 

379. 

380. 

381. 

382. 

383. 
334  • 

385. 

386. 

387. 

388. 

389. 

390. 

391 . 

392. 

393. 

394. 

395. 

396. 

397. 

398. 

399. 


1 5)  GO  TO  59  0 


590 


IF (SZ.GE.0.0) 
lF(SZ.LY.O.O) 
IF < 8Z.LT. 0.0) 


I 


(s!CHAR=4.0 

XLEFT«<XL.  TE-1,0)*0.5*NCMAH»HT 
YLEFT« (YL aTE-1.0) *G.5»NCHAR*HT 
Call  SYMBOL ( X2+XLEFT»Y2*YLEFT*HT»AA»0.0t4) 

GO  TO  590 
530  CONTINUE 
S Z=2 

S1=A0S(AA) 

IF(St.GT.SMAL)  SZ-ALOGI 0 (SI ) 

IF(SI.LT.O.OOOI)  GO  TO  591 
S7»ALOG10 (51) 

NDEC=1 
NNsSZ 
N0EC=NN*2 

JF(NDECFX.GE.O)  ND£C=NDECFX 
IF (SZ.GE.0.0)  NSIGsSZ*l. 0*2.0 
IF (SZ.LT.0.0)  N5IG=N0EC*2.0 
GO  TO  592 

591  CONTINUE 
NSIG*3 
NOEC=l 

592  CONTINUE 

IF (AA.LT  .0.0)  NSlGsNSIG+1 
XLEFT8HT*NSIG*(XLATE-1.0)*0.5 
YLEFT=HT<*NSIG* (YL ATE-1 .01*0.5 

CALL  NUMBER (X2*XLEFT » Y2*YLEFT ,HT»AA»0.0tNDEC) 
590  CONTINUE 
XLAS=XNQW 
YLAS=YNOW 

M40 


Is 


SPLOT(O) 


] 400. 
401, 
402. 
403. 

I 404. 

I 405. 

406.  , 
- 407, 

J 408. 
409. 


GO  TO  300 


600  CONTINUE 
300  CONTINUE 
GO  TO  301 
302  CONTINUE 

WRITE ( 6 » 390 ) NPLT 

390  FORMAT (6X. «PLOT  COMPLETED,  TOTAL  POINTS  PLOTTED=  «»I6) 
GO  TO  999 
999  RETURN 
END 


1 

I 


I 
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I 


f'1MULT(0J 


I 


1 

4 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9 « 

10. 

11. 

12. 

13. 

14. 
.15. 
16. 
17. 
10. 

19. 

20. 


■21. 

22. 

: 23. 

..  24,. 

25. 

26. 

27. 

28. 
29, 

7_  30. 
31. 


SUBROUTINE  MMULT (A.BfC.M) 

c — construct  c=a*b  and  store  the  result  in  a or  8 

DIMENSION  A(16)  tBQ6>  ,C  (16) 

DIMENSION  ITEMPU) 

DATA  I TEMP/1 .5.9,13/ 

00  10  IR0W*1»4 
DO  10  IC0L=1«4 
KK=ITEMP(ICOL) 

SUM=0#0 
DO  11  K = 1 .4 

SUM=SlJM*A(IR0W*»’  ^4“4)  (KK+K-1 > 

H CONTINUE 

C (4*IC0L-4  + IR0W) =SUM 
10  CONTINUE 
IDEBUe=0 

IF (IDEBUG.Ea.O)  GO  TO  20 
WRITE<6.50) 

50  FOHMAT(//) 

DO  30  1=1,4 
I L=  I ♦ 1 2 

WRITE (6,40) (A (L) ,L=I ,IL»4) , (B(L) ,L  = I ,IL,4) , (C(L) »L  = I , lit  4) 
40  FORMAT!*  MMULT « » 4 ( IX » F8 . 3) , 3X ,4 ( IX , F8 , 3 ) t 3X , 4 ( 1 X , F0 . 3 ) ) 

30  CONTINUE 
20  CONTINUE 

IF (M.fQ.3)  RETURN 
DO  12  1=1.16 
IF(M.FQ.l)  A U ) =C ( I ) 

I F < M.FQ . 2 ) 8 ( I ) =C  ( I ) 

12  CONTINUE 
RETURN 
END 


1 

1 

1 

1 

I 


I 

I 
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I 

I 

1 


ERSPT (0) 

1. 

2. 

3. 

4. 

5. 

6. 

7. 


C- 

C- 


SURROuTINE  REHSPT ( DAT  . B ! 

GENERATE  A PROJECTIVE  MATRIX  B FROM  A SIMPLE  COMMAND  OAT 
DIMENSION  DAT  ( 1 ) «B  ( 1 ) * AID ( 16) 

DATA  AlD/1 .0 ♦4*0.0* 1.0* 4*0,0* 1 .Q,4«0.0* 1.0/ 

OATA  CDR/0, 01745329251994/ 

DAT  ( 1 ) CONTAINS  THE  COMMAND  FLAG  =1=XYR0T*  2~Y2R0T, 
3=ZXR0T.  4=VARI ABLE  SCALE*  5=TRANS*  6=CENTER 


« 8 • 

DO  10  1=1,16 

1 9' 

10 

B(I)=aIDU) 

* 10. 

IFLAG=DAT { 1 ) 

, 11* 

IF  { IFl.AG.GT .3)  GO  TO  50 

1 12. 

A=DAT(2)*CDR 

4 13. 

CsCOSiA) 

14. 

S = SIN  ( A ) 

1 15. 

GO  TO  (20*30,40) 

* 1FLAG 

J 16. 

20 

B(1)=C 

17. 

B ( 2 ) =-S 

•>  ia. 

B ( 5 ) =S 

] 19> 

B ( 6 ) =C 

J 20, 

GO  TO  100 

21. 

30 

D(6)=C 

1 22. 

B ( 7 ) s-S 

4 23. 

B ( 1 0 ) =S 

. . 24. 

B ( 1 1 ) aC 

•>  25, 

GO  TO  100 

l 26. 

40 

B ( 1 ) =C 

* 27. 

B ( 3 ) =S 

- ?8. 

8(9)  =-S 

1 29. 

B ( 1 1 ) =C 

4 30. 

GO  TO  100 

31. 

50 

IFLAGsIFLAG-3 

1 32. 

GO  TO  (60.70,80) 

* IFLAG 

X 33, 

60 

W=DAT (3) **2*DAT ( 4 ) **2 

34. 

IF  (W.LT. 0.000001)  GO  TO 

T 35. 

B < 1 ) *DAT (2) 

1 36, 

B (6) =DAT (3) 

4 37. 

B ( 1 1 ) =D AT ( 4 ) 

38. 

GO  TO  100 

1 39. 

65 

B ( 1 ) =OAT ( 2 ) 

4.  40. 

B (6) =DAT (2) 

41. 

B ( 1 1 ) sDAT (2) 

J 42. 

GO  TO  100 

1 43. 

70 

B(4)=DAT (2) 

44. 

B ( 8 ) = DAT ( 3 ) 

- 45. 

B ( 12) =DAT  < 4 ) 

J 46. 

GO  TO  100 

* 47. 

80 

D= ABS (DAT ( 2 ) ) 

48, 

BlllJaO.O 

| 49. 

IF (D.GT. 0,0001) 

B(15)=-l 

1 50. 

D1*ABS (DAT (3) ) 

51. 

IF(D1,GT. 0.0001. 

AND. D.GT 

a 52 . 

B (4) =-DAT (4) 

1 53. 

H (8) =-DAT (5) 

54. 

100 

CONTINUE 

_ 55  o 

IOEBUG=C 

B 56. 

IF  ( I DEBUG . EQ . 0 ) 

RETURN 

■ 57. 

WRJTF (6*140) 

0001)  B ( 1 6 ) = DAT (3) /DAT (2) 


I 


M43 


J’ERSPT (0) 

58.  HO  FORMAT (//) 

J59 • 00  110  1=1 *4 

, 60.  IL=I ♦ 1 2 

61.  WRITE  <6*  120)  (B  ( J)  • J=I  * ILH) 

62.  120  FORMAT(10X»'PERSPT«  »4<2X.F12,5)  > 

I 63.  110  CONTINUE 

~ 64.  RETURN 

..  65.  END 


1. 

1 

I 

I 

1 


H4  4 


1 


WINDOW (0) 


f u 

SUBROUTINE  WINDOW (XA.YA. XB.YB. MOD) 

I 2. 

C 

ROUTINE  TO  EXAMINE  THE  CURRENT  SEGMENT  RELATIVE  TO 

THE 

* 3. 

C””*~ 

WINDOW 

4 e 

c— 

Input  if  moo  is  o then  xa.ya  are  lower  left  corner 

OF 

t 5* 

C— 

AND  XB  AND  YB  ARE  THE  WIDTH  AND  HEIGHT  OF  THE  WINDOW 

J - -6.  . 

C— 

OTHER  PARAMETERS  ARE  ALSO  INITIALIZED  IN  THIS  CASE 

7. 

c--- 

THE  RETURN  VALUE  OF  MOD  IS  -1 

T 8 • 

c— — 

IF  MOD  IS  1 THEN  XA.YA  AND  XB.YB  REPRESENT  END  POINTS  i 

! 9. 

c . 

SEGMENT  WHICH  SHOULD  BE  WINDOWED.  IF  M0D=-1  ON  RETURN 

‘ 10. 

c--- 

DOES  NOT  INTERSECT  THE  WINDOW,  IF  M0D=2  THE  INTERSEC i I 

11. 

C— 

AND  ThE  FIRST  POINT  DOES  NOT  CHANGE.  WHILE  IF  M0D=3 

I HI 

12. 

c 

HAS  CHANGFQ.  XA.YA. XB.YB  MAY  BE  MODIFIED  ON  OUTPUT 

TO 

- 13. 

C — 

CHANGED  VALUES  OF  THE  END  POINTS 

14. 

C— 

IF  MOD  IS  LESS  THAN  -1?  AN  ERROR  HAS  OCCURRED 

IS. 

DIMENSION  PX(2) .PY (2) . PD ( 5 ) *X(5) » Y ( 5 ) »IND(2*2) 

16. 

Data  ind/i.2.4.3/ 

17. 

DATA  SMAL/1 .0E-20/ 

-18. 

logical  AIN.BIN 

19. 

BET (A.B.C) = (B-A) »(C-B) 

*■  20. 

I F ( MOD ) 20 . 1 0 . 20 

21. 

C-— 

initialization  of  window  parameters 

• 22. 

10 

CONTINUE 

- 23. 

XLsXA 

-24. 

YL=YA 

25, 

XW  = XB 

26. 

YW=YB 

27. 

XU=XL+XW 

28. 

YU=YL* YW 

29. 

X ( 1 ) =XL 

■ . 30. 

X (2) sxL*XW 

31. 

X { 3) aX ( 2) 

32. 

X ( 4 ) = XL 

1 33. 

X (5) axL 

34. 

Y(1)=YL 

i 35. 

Y (2) aYL 

-36. 

Y (3) = YL  + YW 

37. 

Y (4) ®Y (3) 

. . 38. 

Y (5) aYL 

39. 

HXW=XW/2. 0 

40, 

HYW=YW/2, 0 

41. 

XC=XL+HXW 

42, 

yc=yl*hyw 

. 43, 

DC=HXW*HXW+HYW*HYW 

44. 

MOD=-l 

- * 45 » 

GO  TO  999 

46, 

C-— 

BEGIN  WINDOW  CUTTING  ACTION  ON  St'GMENl 

’*  47. 

20 

CONTINUE 

48. 

AX=BET (XL.XA.XU) 

49. 

AYsBET  ( YL'.YA.  YU) 

- 50, 

ain=.true. 

51. 

IF ( AX. LT.O.Q, OR.AY.LT. 0.0)  A I N=. FALSE. 

T 52. 

BX=BET (XL.X8.XU) 

1 ^3. 

BY=BET (YL.YB.YU) 

54. 

BIN=,TRUE. 

_ 55, 

IF (BX.LT, 0.0. OR.BY.LT. 0.0)  BIN*. FALSE. 

1 56« 

IF ( A IN, AND .BIN)  GO  TO  100 

* 57. 

IFUIN.0R.BIN)  GO  TO  200 

CURRENT 


NEW  WINDOW 


OF  A LINE 
THE  SEGMENT 
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E FIR5T  P 
HOLD 


i 
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Jw  1 NDOW ( 0 ) 


* 50* 

60  TO  300 

I 59. 

c — - 

BOTH  INSIDE 

* 60. 

100 

CONTINUE 

61 . 

M0D=2 

f 62* 

GO  TO  999 

| 63..  ... 

c--- 

ONE  INSIDE/  ONE  OUTSIDE 

64. 

200 

CONTINUE 

1 65. 

IF (AIN)  SO  TO  210 

I 66.  . 

XX  = X A 

4 67. 

Y Y=Y  A 

68. 

60  TO  220 

1 69. 

210 

XX  = XB  . . 

A 70. 

YY  = Y9 

71. 

220 

CONTINUE 

-1  . 72. 

..  C 

CHOOSE  THE  MAIN  CORNER  REFERENCE  POINT 

i 73‘ 

sx=xx~xc 

74. 

SY-YY-YC 

^ 75. 

1=2 

< 76. 

J=2 

*"  77. 

IF(SX.LT.O.O)  1=1 

78. 

IF (SY.LT.0.0)  J=1 

79. 

IS  = INDU»J) 

A 80. 

c 

SET  UP  THE  EQN  OF  THE  LINE  SEGMENT 

81. 

A=YB-YA 

T 82. 

8=XA-XB 

83. 

C = XB<>YA-XA»Y9 

" 84. 

ISA=IS-1 

85 . 

IFIISA.LT. 1)  ISA=4 

86. 

DlsA^X (IS) *B*Y(IS)*C 

87  • . 

D2=A*X (ISA) ♦S^Y (ISA) + C 

88. 

IF  (D1*D2.GT .0.0)  I5A=IS*i 

7 89, 

IF(ISA.0T.4)  isa=i 

90. 

ICUM=ISA+IS 

91. 

IF ( ICUM.NE.S)  GO  TO  240 

- 92. 

XX=X(I5) 

-93. 

YY=-(C*A*X(IS) )/ (B*SMAU 

* 94. 

GO  TO  250 

95 ' 

240 

XX=“(C*B*Y(IS) }/ (A+SMAL) 

| 96. 

YY=Y<tS) 

A 97. 

250 

CONTINUE 

98. 

IF ( A IN ) GO  TO  260 

1 99. 

XA  = XX 

A loo. 

YA=YY 

101. 

M0D=3 

T 102. 

GO  TO  999 

| 103. 

260 

CONTINUE 

* 104. 

XB=XX 

105. 

YB=YY 

1 1°6’ 

M0D  = 4 

1 107. 

GO  TO  999 

108. 

C 

THE  CASE  OF  TWO  POINTS  OUTSIDE  THE  WINDOW 

f 109. 

300 

CONTINUE 

I no. 

IF (XA-XL.LT. 0,0. AND.XB-XL.LT. 0.0)  GO 

TO 

390 

* 111. 

IF (XA-XU.GT.0.0. AND.XB-XU.GT.O.O)  GO 

TO 

390 

_ 112. 

IF (YA-YL.LT.O.O.AND. yb-yl.lt.o.o)  GO 

TO 

390 

I U3* 

IF (YA-YU.GT.O.O.AND, YB-YU.GT .0.0)  GO 

TO 

390 

■ 114. 

A=YB-YA 
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^INDOw/o) 

115  J 

fH6> 

117. 

118. 

1119. 
120. 
121. 

T 122. 

\ 123. 

* 124, 
125. 

/ T 126 . 

/ il27. 
128. 

- 129. 
130. 
131. 
-132. 

; 133. 

-*  134. 

135. 

V 136. 
137. 
13B. 

■r  139. 

'<  140. 

* 141. 
1^2. 

! 143. 

J-  144. 

145. 
r 146. 

; 147, 
148. 
y 149. 
i 150. 

*'  151 . 
152. 

. r i53. 

154. 

155. 

r 156. 


B.-.XA-XB 

CsX8<»YA-XAttYU 

ICUM=0 

PO(l)=AttXU>*B*Y(l}+C 

DO  310  1-2*5 

PD ( 1 ) =A*X ( I ) *B*Y  1 1 > ♦ C 

IF (PD ( I ) *PD ( 1-1 ) .LT .0.0 ) TCUM=ICUM*1 

310  CONTINUE 

IF(ICUM.EQ.O)  GO  TO  390 
NUM=0 

DO  340  1=1*4  _ 

IF  (PD  ( I ) #PD  ( 1 * 1 ) »GT . 0 .0  ) GO  TO  34(j 
NUM  = NljM+l 

IF  (NUM.GT.2)  GO  TO  340 
ICUMsI ♦ I ♦ 1 

IFUCUM.EQ.3.0R.XCUM.E0.7)  GO  TO  350 
PY(NUM)=-<C*A<*X{I)  )/(B  + SMAt) 

PX  ( NUM ) =X  { I ) 

GO  TO  340  _ 

350  PX  {NUM)  =- (C*B<*Y  ( I ) ) / { A^SMAL) 

PY (NUM) =Y ( I ) 

340  CONTINUE 

IFINUM.LT. ?)  GO  TO  998 

D1=<PX(1)-XA)**2-  (PYU)-YA)<»«2 
02=(PX(2)-XA)**2* (PY(2>-YA>**2 
NUM 1 = 1 

IFID2.LT. 01)  NUHls2 
XA=PX ( NUM 1 ) 

YAsPY(NUMl) 

NUM2=2 

IF(NUm1.EQ,2)  NUM2«1 
XB=PX(NUM2) 

YB=PY(NUM2) 

M0D=5 
GO  TO  999 
390  continue 
MOO=-l 

999  CONTINUE 
RETURN 
998  M0D=-2 

GO  TO  999 
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SUBROUTINE.  USER 

C0MM0N/PL8AS1/  P(4i3001>  » ICON (3001) * NUM • NUMAX 
C0MM0N/PLBAS2/  AP ( 16) « AV ( 16) *CP < 16) • DAT ( 7) 
C0MM0N/PLBAS3/  W I NXL t W IN YL t W INXW . W I N Y W * I W I N 
C0MM0N/PLBAS4/  SCRNXL ♦ SCRNYL oSCRNXW » SCRN Y W ♦ I SCRN 
_ COMMON /PL BAS5/  S IGNOR ♦ SNPLOT t I H 

return 

end 


&EA0IN  (0) 

SUBROUTINE  READIN(IRR) 

8 ?. 

C0MM0N/PL8 AS1 / P(4,3001> »IC0N(3001)  . NUM » NUMAX 

■ 3. 

COMMON/ PL 8 A 52/  AP ( 16 ) ♦ A V ( 1 6 ) . CP ( 1 6 ) , DAT ( 7 ) 

A. 

COMMQN/PLRAS3/  WINXL ♦ W INYL » W INXW * W INYW , I W I N 

I 5* 

COMMON/PLB AS4/  SCRNXL * SCRNYL » SCRNXW , SCRNYW , I SCRN 

1 ..6. 

C0MMON/PLBAS5/  SIGNOR, SNPLOT , IH 

7, 

DIMENSION  NAM  (21 ) 

1 8* 

DATA  NAM/  4HP  ♦ 4HI NI T t 4HRULL » 4HP I TC * 4HYAW  ♦ 

X 

4HSCAL,4HTRAN,4HDISf .4HREIN.4HHIDE. 

10. 

X 

4H5IGN,4HWIND»4HSCRN,4H30X  » 4HF4CT » 

...  11. 

X 

4HPL0T.4HUS£R,4HPRIN»4HEND  , 4HDUM  ♦ 

1 _1 2 • 

. X 

4HAX1S  / 

* 13. 

DATA  NONAM/2 1 / 

14. 

EQUIVALENCE  (DAT(l) tRDAR(l)) 

~ 15. 

DIMENSION  ROAR (8) 

16. 

DIMENSION  R ( 4 ) ,KMN(3) ,RMX<3> ,PT(3) 

17. 

1 

READ(5»10,END=9995  NAMM, (ROAR (L) «L=2,8) 

- 18.  . 

10 

FORMAT (A4.6X.7FlO, 4) 

19. 

IF  (IPRIN.GT.O)  GO  TO  41 

*"  20. 

WRITE(6,40)  NAMM, (RDAR(L) ,L=2,8) 

. 21. 

40 

FORMAT (iX.A4.6X.7F10, 4) 

22. 

41 

CONTINUE 

--  23. 

c--~ 

COMPARE  TO  PRESTORED  NAMES  IN  ORDER  TO  DETERMINE 

24. 

DO  20  1 = 1, NON AM 

y 25. 

IF (NAMM. EQ. NAM ( I) ) GO  TO  30 

26. 

20 

CONTINUE 

27. 

c 

ERROR  PATH  — INPUT  WORD  WAS  NOT  VALID 

, 28, 

IRR=1 

1 29. 

WR I TE ( 6 . 50 ) NAMM, NAM 

’•  30.  . 

50 

FORMAT { / , • ERROR  --  THE  CODE  NAME  «,A5.1X,i  WAS 

31. 

X NAMES  AWE  AS  FOLLOWS ♦,/, 20 ( 1 X , A4 ) } 

32, 

GO  TO  999 

• • 33. 

30 

CONTINUE 

34. 

IFd.ro. 1)  GO  TO  100 

I 35. 

IF(I.C.T.1.AND.I.LT,17)  GO  TO  120 

‘ 36. 

IK-1-16 

37. 

GO  TO  (170, 180*190, 200, 210) . IK 

..  38. 

100 

CONTINUE 

' 39. 

IF(RDaR(2) .LT.-O, l.OR.RDAR (2) .GT.99.)  GO  TO  110 

**  40. 

NUM=NUM+ 1 

41, 

DO  111  L= 1 . 4 

{ 42. 

111 

P (L*NUM)=R0AR(L*2) 

4m  4 3 • 

IC0N(NUM)=RDAR(2) 

44, 

GO  TO  1 

?*  45. 

110 

CONTINUE 

< 46, 

NUM=RdaR (3) 

47. 

GO  TO  1 

- 48. 

120 

CONTINUE 

4 49, 

ROAR ( 1 ) =1-1 

A 50. 

CALL  SSPLOT 

51, 

GO  TO  1 

| 52. 

170 

CONTINUE 

L 53. 

ROAR ( 1 ) =17 

54, 

CALL  USER 

vl  55 , 

GO  TO  1 

1 56. 

180 

CONTINUE 

■ 57. 

IPRIN=RDAR(2) 

THE  ACTION  CODE 


NOT  VALID?  VALID 


I 
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1 


1EAOIN<0> 


58. 

GO  TO  1 

f 

59, 

190 

CONTINUE 

1 

60, 

GO  TO  999 

61. 

200 

CONTINUE 

X 

62. 

WRITE<6,201)  NUM.NUMAX 

1 

63. 

201 

FORMAT <5X, ’CURRENT  NUMBER  OF  POINTS=  * 

64. 

> 

t*  161 

T 

65. 

NUMIsMINO (NUMAX.NUM) 

66. 

IF (NUM1.LE.0)  GO  TO  1 

*•*- 

67. 

WR I T£ { 6 » 205 ) 

68. 

205 

FORMATt  1X.10HCQORDINATE.10H  LOW  VAL 

69. 

) 

( 10H  MEAN  VAL  ilOH  WIDTH  ) 

? 

•a  t 

70. 

DO  202  J=1 *3 

71. 

RMIN=1.0E*20 

V 

72.  . 

RMAX=-l,0E  + ?.0 

73. 

DO  203  L=1 » NUM 

m % 

74. 

IF(ICON(L) .GE.49)  GO  TO  203 

75. 

RMINsaMINI (RMIN.P { J.L) ) 

1 

76. 

RMAXsaMAXI (RMAX.P  < J.L) ) 

K «• 

77. 

203 

continue 

78, 

RMEANs(RMAX.RMIN) /2.0 

r 

79. 

DIF-RMAX-RMIN 

j 

80. 

write (6,204 ) J,RMIN»RMAX,RMEANf DIF 

_.81 , . 

204 

FORMAH  IX.  •COORD  • » 1 2 ♦ 1 X, 4F 1 0 . 3 ) 

T ' 

82. 

202 

CONTINUE 

1 

83. 

GO  TO  1 

4 . 

84, 

210 

CONTINUE 

1 ' 
1 

85. 

IF(NUM.LE.O)  GO  TO  999 

86. 

DO  211  J=  1 » 3 

• • 

87. 

RMINal.0E*2O 

88. 

RMAXs-RMIN 

v> 

89, 

DO  212  1=1. NUM 

* • 

90. 

I F ( ICON ( I ) . GT , 49 ) GO  TO  212 

I 6 » • AND  MAXIMUM  ALLOWED 


•10H  HI  VAL 


r 

* * 

l 


92. 

93. 

94. 

95. 

96. 

97. 

98. 


T 99. 

i 100. 
101. 

1102. 
103. 
104. 
105, 

1106. 
107. 
108. 

8109. 
110, 
111. 
_ 112. 

I 113- 


RMAXsAMAXI  (RMAXiP ( J,  I ) ) 

212  CONTINUE 
RMX ( J) =RMAX 
RMN ( J ) = HM I N 

PT  < J)  = (RMIN  + RMAX) /2.0 
IF(RDaR(2) .GT.O.l)  PT ( J ) =RMAX 
IF (ROaR ( 2 ) .LT.-0.1)  PT ( J) -RMI N 
211  CONTINUE 

DO  213  J=1 *3 

IF(RMX(J)-RMN(J) ,LT. 0,0001!  GO  TO  213 
IF (RMX (J)-RMN(J) .GT.1.0E+20)  GO  ro  213 
R(1 ) =RMN (J) 

R(2)=<RMX(J)-RMN(J) >/5.0 
R (3)  5=6.0 
R < 4 ) =5*  0 

lab= j 

CALL  aXES(R»PT  .LAB. 1 ) 

213  CONTINUE 
GO  TO’  1 

999  CONTINUE 
RETURN 
END 


I 


APPENDIX  N 


L IT E NATURE  BIBLI OGRAPHY 

• Thermal  Models 
a Optical  Models 

• Thermal  Properties 

• Blood  Effects 

• Bum  Criteria 

• Experimental  Temperature  Data 

• Experimental  Burn  Data 

• Melanin  Granules 

• Miscellaneous 


CATEGORY  • 1 


ThEFJhaL  I'UULLS 


l-  1 . 
1 • 2, 

1-  3. 

i * ft  • 

l-  b. 

1"  8, 

lu  7 • 
1 * ti  , 

1-  9. 

1-  lu, 
1 " 11. 
1 ■ Id. 
1-  13. 

1 " 1ft. 
1 - lb. 


ALLt*  ET  AL 

a L L fc  n ET  AL 

ASChUFK  tl  AL 

C H A I U J C 

CHAT  U ,J  C 
CLAKKt  tT  AL 

CLAUSING  A M 
DOUGLAS  J 

UUUGLAG  tl  AL 
Mb  J H 

■ xYtS  tT  AL 
HlLUttthAND  F P 
NAliNSTEK  tT  AL 

M A I IN  S 1 fc  H fc.  T AL 
MAYtH  tT  AL 


,C  AtCULAT  10f.  UP  PitTli.AL  HORN  AND  F L A S h(<l  i N Dwfc  S S 
S AT  t SEPARATION  DISTANCES.  T t C hNU  LUG Y i INC.,  SAm 
ANUJNIO,  TfcXAS  LlttStltNl.tS  DIV,  Ka  1 6U9“U7»C»0Oft0  , 
IShP.  J AN  J96H. 

RESEARCH  10  OUT  AIN  P.YF  L F F L U o 0 A T A ANU  Of-.VfcL'V  A 
MATHEMATICAL  MODEL  H>R  EYE  F F F t C T S PR 1 D I C T 1 HNS  . 
PINAL  REPORT  9 DEC  1970.  U S A E 5 A R CuNTPACT  Fftl6(>9- 
70-C-0007*  TECH.,  INC, 

heat  transfer  ihrougm  the  smn  amj  its  change 
doming  VASn  const  k I c t Ion.  A R C h , F .U.GES.PmySIUL,  * 

2 ft  9 , ( 1 9 ft  H ) , P , 1 u> . 

, A D V AMC  fc  D heat  T R A n 8 F E P in 
D 1 0 1 h 6 ] N£  t I N G ♦ CHAO,  H,  1.  LED,),  UN  1 V , UK  ILI.I. 
PRESS.  39b  PP,»  1969. 

, THERMAL  PkcMLEMS  IN  rl]  ul  t CHNC'LOGY  » ASMfr. , 1 9 68 . 

.an  tuo  l l I dp  I dm  thermal  moull  fur  retinal,  injury 
From  OPTICAL  SOURCES,  APPLIED  OPTICS.  h»  1<>S1» 

1 11  b 3 , 

.NUMERICAL  METHODS  IN  HE  A T TRANSFER.  THREE  LECTURES 

UN  The  NUMERICAL  INTEGRATION  OF  ME  AT  CONDUCTION 
EOuATlUN  Hy  IMPLICIT  METHODS,  J,  SUC,  INDUS, 

APPL.  maim,,  3,  u?.  PP,.  19SS. 

A GENERAL  FORMULATION  UF  aL  T fc  Ri'-AT  IMG  DIRECTION 

METHODS*  1 , , N (J  h E R . MATH,,  h,  ftpH-ftbi.  196ft, 

.A  model  EUR  The  STUDY  of  retinal  Damage  l' Oh'  Tl) 
LASER  RADIATION,  U.S,  A R ('•  Y I p C h N 1 C A L REP0R1  36/R, 

.ThtKMAL  MODEL  FUR  kETImal  damage  INDUCED  HY  POLSt1 
LASERS.  AlM'SPaCF  MEDICINE.  39.  «7«-ft8Q. 

19  68,  F I N I T h»D IF  F t RE  NCt  fuUATTUnS  amO  SIm1* 

LA  I IONS,  ENGLEWOOD  CUFFS.  PKfc  N T J CE -w  ALL  . 

.RETINAL  TEMPERATURE  increases  RRUPUCH)  HY  IMFnSe 
EIGHT  SOURCES,  JnijPNAl  UF  THE  OPTICAL  SOC . nE 
A fi  t H « VOL.  60  NO.  P,  CFEH  1970  ), 

.TRANSIENT  THERMAL  Hfc'nA  V tew  I h (BIOLOGICAL  SYSTEM, 
HULL,  MATH,  HIOPHYSICS  3P.303  U97i>), 

.EYE  H OR R DAMAGE  CALCULATION  FOR  an  E X 0- A T Md SP HE R T 
nUCLEAR  EVENT,  J.  OP1,  SUC • AofcR , , 5ft » 6 76- 683 , 196 


N1 


I-  to.  MILLEK  E T AL 

l-  17,  NICKEL  J A 

1-  18.  ET  A L 

1-  19.  PLACEMAN  fcT  AL 

1-  20.  PF.NnE.S  h H 

1-  21.  HU'JliEH  a 

1-  22.  SAlU  k.  T At 

1-  23,  SAUUYtV  V K 
1-  2u,  8 C h l'i  I 0 T ET  AL 

1-  2b,  SHI  1 IEH  LT  A | 

1 " 2 0,  >S  K t P.  N fc  T Al_ 

1 » 2 7,  SKEEN  E T AL 

1-  2rt,  TAKAl'A  ET  AL 
1-  29 . VOS  J J 


K E I I N A L K U R N S AND  P L A 8 H B L I N U im  fc  S S t F I 0 A l_  R fj  R 0 W 1 « j 

CONTHACT  F « l609«feH»CO 9 23»  VOL.  It  M.)V  o9,  TECHNO-  ■ 

tUl.Y  1*0.,  DLjC  At)  fi97afS, 

1 

EVALUATION  OF  fc  Y F.  HAZARDS  POk  NUCLEAR  DETONATIONS  • 
FINAL  HfcPOKT  E91609-69i-C--i)()/J9,  St  P 1970.  TECH.  \ 

I ML.  ' 

, A STUDY  OK  THE  N I J m fc  K I ('  A L SOLUTIONS  OF  PARTIAL  ] 

DIFFERENTIAL  EUUATJONSt  ma  T HfRA  1 ICAl.  SOCIETY,  1 

DEC.,*  1 9A9 , , 

Tht  N U N fc  k I L A L SOLUTION  OF  PARABOLIC  AM)  ELLIPTIC 
OlEEEktMlAL  F.UUATIONS*  J,  SOC,  INP'JST.  AF’PL,  " 

MATH.,  J,  2rt-«l, 

.ANALYSIS  OF  TISSUE  AM;  AKlfcklAL  BLOOD  T E Mpfc  R A 1 1 in  F 
In  THE  PEST  1 NO  Hiif)AN  EOKfcAkM,  JOURNAL  OF  APPLIED 
PHYSIOLOGY.  VUL.  1*  NO,  2.  AUG , l 94H , PP  , 9 3- 1 ?2  . 

.CALCULATION  UP  YfcM'EH  A I ORE  1 Li  C k E a S F In  TUt  t.YE. 
PKUDUCED  BY  INTF.NSF:  LIGHT,  DOLL.  A T H # HJ0PH>S.» 
32,403(1970) 

i 

,THL  VARIATION  WITH  ADF  OF  1 Mfc!  SPECTRAL  TRANSfclSS) 

VlTY  OF  THE  LIVING  h Una  N CRYSTALLINE  L f:  M S . GF.RdH- 
TU106IA,  3.213.  1989. 

INTEGRATION  OF  EUUAUORS  UE  PARABOLIC  TYPE  BY  ! mF 
METHOD  OF  NfcTS,  Ffcv,  YQRk,  MAChI  LLAN , , i«yh4, 

SOME  CALCULATIONS  OF  1 fc  OF  t R A T Un(£  IN  P fc  T INAL  LujkN  , 

PRUMLfcHS,  LABORATORY  REPORT,  Of.  P aH  T M t N 1 OF  13  1 1 ' - 
PHYSICS*  -IfcOICAL  COLLEGE  OF  VjU'GINIA.  JUMfc  1964 

.ANALYTICAL  SOLUTIONS  TU  THE  PPUHlE-M  OF  I RAWS  [ F M 1 
HEAT  TRANSFER  IN  L 1 V 1 Mi  TISSUE,  U.  OF  1.,  UWoANA, 
ILL.,  ASHE,  AUG,  1971, 

.OCULAR  EFFECTS  OF  N fc  A R I N F R A R E 0 l Afcfch  R A D 1 A 1 i.  0 N j 

FOR  SAFETY  CRITERIA,  T LCMNUL  OGY , INC.,  AF  CONTRACT  *• 

FU1B09-71-C-U01(>,PRUJ  6iu  l , 1 ASKOb  , WORK  UNIT  02?, 

JUNE  1972, 

.OCULAR  EFFECTS  OF  R E P E,  1 1 T I V fc.  LASER  PULSES*  TECH- 
NOLOGY, INC.,  AF  CONTRACT  F u l 6 U 9 - 7 1 - C - 9 0 1 H * PROJ 
6301*  TASK  ob,  FINAL  R fc  PORT  WOkr  dMf  o2<l*  JUNE 
30, 1972. 

.INVESTIGATION  OF  MEANS  AND  MATERIALS  TO  COMBAT 
THERMAL  RADIATION  flash  BURNS, ARMOUR  RESEARCH  FNI)N 
PWUJECT  DUU6*  JAN.,  1 9 b 7 , 

.DIGITAL  COMPUTATIONS  UP  T fc  M P t k A T 0 k F I N RETINAL 
(OJIVII  PKOOLfc  MS  , INSTITUTE  FUR  PE RfE P T IDo . KVO-TnU, 
RfcPUkT  NO,  IZF.  1 9 6 b - 1 6 , SOHSTF.  RGLRG,  TMF  MTnER- 


N2 


LANDS*  19hb 


1 - 3 0,  VuS  J J 


1-  51.  wEAVFlR  ET  AL 


l • 32  • wHiit  r j 


1-  55.  WHITE  ET  al 
1*  3«.  WHITE  El  al 


1-  3b.  *HJ1  E t T al. 
1-36.  wHAt  J L 

1-  57.  YOUNG  0 


1-  3d.  Z ARE  T M M 

1-  39,  — — 


TEMPORARY  ANIJ  PERMANENT  LOSS  UP  VISUAL  FUNCTIONS 
BY  FLASHES  AT  NUCLEAR  t X P L U S 1 n S '+■  A THEORETICAL 
APPROACH.  REPORT  NO.  19b9.7.  INSTITUTE  F 0 K FLIT- 
CEFTlUN  W VO- T NO  (AD  332-bbl).  19b-9.  SUtSTERHEWG * 

NET  HE  HL  AN  US 

.MATHEMATICAL  mijuEL  OP  SMN  EXPOSED  TO  T lip.  R h Al. 
RADIATION.  U.fi,  NAVAL  AIK  DEVELOPMENT  CtMtW 
JOHNSV  ILLE  t V.  ARM  I NS  I t,h  * PEnI'.,  il'97«  1969  * AERO- 
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